VBA/Excel/Access/Word/Data Type Functions/IsArray

Is a variable an array

   <source lang="vb">

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

</source>
   
  

Using the IsArray Function

   <source lang="vb">

Sub IsThisArray()

   Dim tblNames() As String
   Dim totalTables As Integer
   Dim counter As Integer
   totalTables = 10
   ReDim tblNames(1 To totalTables)
   If IsArray(tblNames) Then
        MsgBox "The tblNames is an array."
   End If

End Sub

</source>