VBA adding item to cell - help

[Felicio Duarte]

Hello I need a help:( after click the button i add item from listbox in cell but after that my delete or copy past doesnt work.. so strange:)

Код Выделить Развернуть

Private Sub CommandButton1_Click()

Sheets("Unit Price Calculation").Activate
With Worksheets("Unit Price Calculation")
ActiveCell.Value = Me.ListBox1.Value
Unload Me
End With
End Sub

[kuklp]

Hello. You need to upload an example file.

Код Выделить Развернуть

Private Sub CommandButton1_Click()
    With Worksheets("Unit Price Calculation")
        .Activate
        .ActiveCell.Value = Me.ListBox1.Value
        Unload Me
    End With
End Sub