How to display value of a cell in another location when target cell is selected

[tr1q]

Hi All,

I am currently using below code when user selects the cell D11 it will display the cell value in AA1 now I need this to change so when user selects cell X11 cell D11 value displays in AA1 and on selection of cell X12 Cell D12 displays in X11 and so on.

any idea how to do it would be great.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Worksheets("Sale").Range("D11:D251")) Is Nothing Then Exit Sub
Range("AA1").Value = ActiveCell.Value
End Sub


Thank You.

[Bernie Deitrick]

You don't need Worksheets("Sale") - Target can only be on the sheet with the code, and to have it intersect with a range, that range must also be on the same sheet. Any non-qualified range in a sheet's codemodule refers to that sheet's cells. This also will work for any size worksheet.

Please Login or Register  to view this content.

[tr1q]

Bernie Thank you works perfect!