Quick manipulation help

[Noxqss38242]

Sheet1, cell B2 is currently blank.

I want it to auto fill with whatever is selected on Sheet2 in column A. So cell B2 is something like = active cell sheet 2 kind of formula?

I'm assuming this will need to be a macro/VBA code to make it work?

Also, if this matters, I have all of Sheet2 from A2 downwards as a hyperlink. Any cell clicked on column A will result in the user jumping to Sheet1.


Thanks for the help in advance!

 

[offthelip]

put this code in the sheet2 code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(Target) Then
 With Worksheets("Sheet1")
 .Range(.Cells(2, 2), .Cells(2, 2)) = Target.Value
 End With
End If
End Sub

 

[Noxqss38242]

put this code in the sheet2 code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(Target) Then
 With Worksheets("Sheet1")
 .Range(.Cells(2, 2), .Cells(2, 2)) = Target.Value
 End With
End If
End Sub

Thank you!