Sub lizTest() Dim ws As Worksheet Set ws = Worksheets("Sheet3") Dim lrow As ListRow Dim table As ListObject Set table = ws.ListObjects("Table3") Dim sFileFields, formField As String Dim currentCell As String sFileFields = "" Dim i As Integer For i = 2 To table.ListRows.Count Set lrow = table.ListRows(i) currentCell = lrow.Range(1, 1).Address Dim j As Integer For j = 1 To 13 If Not IsNumeric(Right(Range(currentCell).Value, 1)) Then formField = Range(currentCell).Value & j Else: formField = Replace(Range(currentCell).Value, "-", j & "-") End If sFileFields = sFileFields & "<>" & vbCrLf Next j Next i Debug.Print sFileFields End Sub