double click a cell in Sheets(2) and have it populate the cell A3 in Sheets(1)

[capson]

Hello,

I want to double click a cell in Sheets("Upload") and have it populate the cell A3 in Sheets("List")

I have placed the code the Sheets(Upload) but not working

any help is appreciated with this

Thank you

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


  Sheets("List").Range("A3").Value = Sheets("Upload").ActiveCell.Value


End Sub

 

[wideboydixon]

Could be that ActiveCell isn't set because this is before the double click is handled. Why not use Target which is the cell being clicked on?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Sheets("List").Range("A3").Value = Target.Value

End Sub

WBD

 

[capson]

That worked Great, Thank you!