[Liz Larsen]

I used Replace(str, “-“, j & “-“) and looped through j = 1 to 12 (for 12 columns) and that seemed to do the trick. You can thank ChatGPT for that idea.

See the attached bit of code that totally works cuz I tested it 😁 I wrote it with the intent that you’ll be using Mitch’s method to output an FDF file.

LizTestCode.txt 746 B Text File - Click to view

Options

• Copy Download Link

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 12 formField = Replace(Range(currentCell).Value, "-", j & "-") sFileFields = sFileFields & "<>" & vbCrLf Next j Next i Debug.Print sFileFields End Sub

Expand