Put this code in one of your source wbs....
Private Sub GetWBFilepath()
MsgBox Application.ActiveWorkbook.FullName
End Sub
Replace this part of the posted code with the message box contents as shown below.....
change this...
Set FilDir = fso.GetFile(ThisWorkbook.Path & "\yourfoldername\1056.xlsm")
to this..
Set FilDir = fso.GetFile(" Place msgbox output here ")
The problem is usually a file path thing, The macro enable shouldn't matter.
Dave