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