[Liz Larsen]

Ok, at some point, I saved the wrong version of my code with is why problem #1 happened. It’s fixed now.

To answer your questions:

1. I think the duplicated field names you’re referring to were the ones without numbers on the end (BOXTAG and AirType). That’s because I saved the wrong version of my code. The attached code is now correct. I have an if statement in there to properly add the column number to the form field string, and that somehow never made it to the code I saved previously. *womp womp* 😞
2. I ran your code and it is saving as an FDF file, it’s just adding “.xlxs” or “.xlm” to the end of the file name because you’re using the dialog box to select a save location. But, at least on my end, the file is technically an FDF file. To fix this, I added a simple Replace function in your code to remove the excel file extension. See attached screenshot.

Also note that you removed the Offset from my code, with is essential because that’s what is looping through the columns to get their values.

lizTestCodeNotes.png 37 KB Image File - Click to view

Options

• Copy Download Link

replace-filename.png 21 KB Image File - Click to view

Options

• Copy Download Link

LizTestCode-1.txt 917 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 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

Expand