Sub Main Dim X As Variant X = 1 Debug.Print IsObject(X) 'False X = "1" Debug.Print IsObject(X) 'False Set X = Nothing Debug.Print IsObject(X) 'TrueEnd Sub