Your 'Main' code module has a sub named 'PopulateDynamicDDList(oCombo As ComboBox)' in which you'll find a line with:
ThisDocument.Path & Application.PathSeparator & "S8Addresses.xlsx"
you could change:
ThisDocument.Path
to any other path, or even allow the user to select a path by using:
GetFolder
combined with the following function:
Code:
Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function
Note: You might want to add some error checking if you use the function; otherwise your code is liable to crash if a valid path isn't selected.