Active Cell Filling
Code:
--------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Union(Range("$C:$C"), Target).Address = Range("$C:$C").Address Then
MsgBox Target.Address ' this is where you coe goes
End If
End Sub
--------------------
--
davesexcel
|