VBA Debug Array - Print to Immediate Window

DebugPrintArray.vb

' The following Sub can be used in VBA to print the contents of an Array to the Immediate Window for debugging purposes

Sub DebugPrintArray(arr As Variant)
    Debug.Print ("----------------------Debugging Array----------------------")
    Debug.Print ("Array row count (from zero): " & UBound(arr))
    Debug.Print ("Array col count (from zero): " & UBound(arr, 2))
    
    Dim rowString As String
    rowString = ""
    
    For r = 0 To UBound(arr)
        rowString = ""
        For c = 0 To UBound(arr, 2)
            If c = 0 Then
                rowString = arr(r, c)
            Else
                rowString = rowString & "," & arr(r, c)
            End If
        Next c
        Debug.Print (rowString)
    Next r
    
    Debug.Print ("----------------------Debug Complete-----------------------")
End Sub