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