Data Type VisualBasic Script

Sub TypeSheet()
    MsgBox "This sheet is a " & TypeName(ActiveSheet)
End Sub