Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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