Your code is filling the values which show in the list. It isn't setting the default value because you haven't asked it to.
You set the default by populating the value after the list is applied
It appears you are somewhat inconsistent with your spaces. Is there meant to be a space after Dr.?

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Funny story... that is exactly how I had it set up and it was returning an error to me 5 hours ago. I closed it, went about other business, came back to check if what suggested might be in any way different from what I had already put, and it was working with no issues.

As for the inconsistent spaces, I had trimmed the list to make it simplified. The list was much longer and I chopped out about 7 other prefixes, they all have the space after them because it will print to the document with the space between the prefix and the person's name.

Thank you for your help, it actually worked and just made me look at what was already there again instead of scrapping what I had.

Private Sub UserForm_Initialize()

Dim myPrefixes() As String
myPrefixes = Split(" |Mr. |Ms. |Det. |Dr. |Atty. |Rabbi |Ofc. |Sgt. |Cpl. |Maj. ", "|")
Prefix1.List = myPrefixes

Prefix1 = ActiveDocument.Variables("Prefix1")

End Sub