Sub Main Dim X As Variant, Y(2) As Integer Debug.Print IsArray(X) 'False X = Array(1,4,9) Debug.Print IsArray(X) 'True X = Y Debug.Print IsArray(X) 'TrueEnd Sub