Change the path in the userform code from
Code:
Private Sub UserForm_Initialize()
xlFillList ComboBox1, 1, ThisDocument.Path & "\Addresses.xlsx", "Sheet1"
End Sub
to reflect the path of the worksheet e.g.
Code:
Private Sub UserForm_Initialize()
xlFillList ComboBox1, 1, "C:\Newpath\Addresses.xlsx", "Sheet1"
End Sub