Hello all,
I am using the following:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:AA999")) Is Nothing Then
Cells(76, 3).Copy
End If
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
With Target
.EntireRow.Interior.ColorIndex = 8
End With
Application.ScreenUpdating = True
End Sub
I'm looking to be able to use a relative reference to copy the cell in column C with the corresponding row number. So change this part: Cells(76, 3).Copy
Apologies, quite new to VBA, I'm sure there's a simple answer!
Thanks.
Bookmarks