Cannot pass an array to a function from a multidimensional array

Question

I have a Global variable which shows as a Variant/Variant(1 to 33, 1 to 9) in the Locals window. So it's a 2D array, yet when I try to for each over the array I cannot access the whole arrays only the cell values

Public myRows As Variant
Public myTable As ListObject




Sub SendEmails()

Dim X As Long
Dim Row As Variant



SetMyTable

For Each Row In myRows
    Debug.Print CheckRow(Row)
Next Row


  
End Sub

EDIT: Adding the CheckRow function

Function CheckRow(Row As Variant) As Boolean
Dim IsRowValid As Boolean
IsRowValid = True



If IsEmpty(Row(1)) = True Then
    IsRowValid = False

End If
If IsEmpty(Row(2)) = True Then
    IsRowValid = False

End If
If IsEmpty(Row(3)) = True Then
    IsRowValid = False

End If
If IsEmpty(Row(4)) = True Then
    IsRowValid = False

End If
If IsEmpty(Row(5)) = True Then
    IsRowValid = False

End If

CheckRow = IsRowValid

End Function

Answer 1

Check the Rows of an Array

• Since you cannot easily pass the rows of the array, pass the 'whole thing' and the row index.

Public myRows As Variant

Sub SendEmails()

    'SetMyTable ' don't know what that does
    
    Dim r As Long
    For r = 1 To UBound(myRows, 1) ' loop through the rows
        Debug.Print CheckRow(myRows, r)
    Next r

End Sub

Function CheckRow(ByVal Data As Variant, ByVal RowIndex As Long) As Boolean
    
    Dim c As Long
    
    For c = 1 To UBound(Data, 2) ' loop through the columns
        ' Note that 'CheckRow' is initially (by default) equal to 'False'. 
        If IsEmpty(Data(RowIndex, c)) Then Exit Function
    Next c
    
    CheckRow = True ' all values in the row are not empty
        
End Function