Cell Double Click Event Procedure

[adam]

HI anyone,

I'm trying to figure out a macro code that would copy the content of the cell E9 from the sheet CustomerList to the cell I10 of the sheet Invoice; and clear the cell E9 when the user double clicks the cell E9.

I hope I've made my question clear.

Any help on this would be kindly appreciated.

Thanks in advance.

[Jan Karel Pieterse]

Right-click the tab of the CustomerList sheet and select "View code".
Paste this code:

Code: Select all

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Me.Range("E9")) Is Nothing Then Exit Sub
    'Cancel what normally happens after a double-click (edit cell)
    Cancel = True
    Me.Range("E9").Copy Destination:=Worksheets("Invoice").Range("I10")
End Sub

[adam]

Thanks for the help Jan Karel Pieterse. I do really appreciate your help.