ActiveCell.Adress for a range

[antmol89]

Hi all

Is it possible to modify the code below so that the ActiveCell.Address can be any cell in a range (e.g. A2:M14) and the Range("W5").Value is equal to the active cell in that range?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$A$2" Then
Range("W5").Value = Range("A2").Value
End Sub

Cheers!

 

[FormR]

Hi, try like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:M14")) Is Nothing Then
  Range("W5").Value = Target.Value
End If
End Sub

 

[antmol89]

Legend! That works perfectly! Really appreciate that!