Sub ArrayTest() Dim intNum1 As Integer Dim intNum(1 To 10) As Integer Debug.Print "intnum1: " & IsArray(intNum1) Debug.Print "intnum: " & IsArray(intNum) End Sub