Use TypeName to get the object data type
Sub TypeSheet() MsgBox "This sheet is a " & TypeName(ActiveSheet) End Sub