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