Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Row Mod 2 = 0 Then
MsgBox "You selected the range " & Target.Address & " on " & Sh.Name, vbOKOnly, _
"SheetSelectionChange Event"
Else
MsgBox "You selected the range " & Target.Address & " on " & Sh.Name, vbOKOnly, _
"SheetSelectionChange Event"
End If
End Sub
|