Excel Array issues

[maxamis4]

I keep getting a runtime error when I try to add a value to my array. The error is Run-time error '9' Subscript out of range.

I am pretty sure i have declared everything correctly but can't see to figure out whats wrong. Also the array should store string values.

 
Dim myarr As Variant
Dim c, r As Integer
Dim tbl As ListObject
Dim cl As Range, Rng As Range
 
 
    Worksheets("tblINR144").Activate
 
    Set tbl = ActiveSheet.ListObjects("Table3")
 
    With tbl.DataBodyRange
        tRows = .Rows.count
        tCols = .Columns.count
    End With
 
 
    Set Rng = Range("A1:x" & tRows & "")
 
 
ReDim myarr(0 To tRows, 1 To tRows, 2 To tRows) As String
 
    c = 1
 
    For Each cl In Rng.SpecialCells(xlCellTypeVisible)
        Dim t As Integer
 
 
        'GET EMPLOYEE NAME
        If cl.Column = 8 And cl.Row > 1 Then
 
          myarr(0, c) = cl'error here
 
            c = c + 1
 
        End If
 
    Next cl
 
 
 

[maxamis4]

I solved the problem. I had declared the array incorrectly. I only needed to declare two-dimensional array versus three.