Simple template for looping through table objects in excel

vba_tableloop.bas

Sub tableloop()
    Dim tbl As ListObject
    Set tbl = ThisWorkbook.Worksheets("wsname").ListObjects("tblname")
    Dim i As Integer
    For i = 1 To tbl.ListRows.Count  
        Dim col1val, col2val As String
        col1val = Trim(tbl.ListColumns("col1name").DataBodyRange(i, 1).Value)
        col2val = Trim(tbl.ListColumns("col2name").DataBodyRange(i, 1).Value)
        'do stuff with column values here
    Next i
End Sub