Have you ever needed to determine if an object variable is holding a valid reference? TypeName() returns a class name if the object holds a valid reference. It returns the word “Nothing” if it does not:
Public Function IsObjValid(objTest As Object) As Boolean Dim vntResult As Variant vntResult = TypeName(objTest) If vntResult <> "Nothing" Then _ IsObjValid = TrueEnd Function