Sub Main Dim X As Variant Debug.Print IsError(X) 'False X = CVErr(1) Debug.Print IsError(X) 'TrueEnd Sub