Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Workbook_SheetSelectionChange

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