Data Type VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type
  4. Get the type name
Public Sub TestActiveControl()
  If TypeName(ActiveSheet) <> "Worksheet" _
    Or TypeName(Selection) <> "Range" Then
    MsgBox "You can only run this macro in a range", vbCritical
    Exit Sub
  End If
End Sub