Quote:
Originally Posted by gmayor
Do you mean like
Code:
Private Sub UserForm_Initialize()
Dim lngFld As Long
With ActiveDocument.MailMerge.DataSource
ListBox1.Clear
For lngFld = 1 To .FieldNames.Count
ListBox1.AddItem .FieldNames(lngFld)
Next
End With
End Sub
|
Amazing! Thanks so much!!!