Universal open

[Geri]

Inside a folder, I have several workbooks that are linked. I have
recorded a macro to open them in sequence and it works fine, but I
does not work if I move the whole folder.

The code I use is -
Workbooks.Open Filename:= _
"xxx:xxx.xls"

How can I fix this? Is there a solution that will travel with the
location of the folder?

 

[Tim Williams]

If the files are in the same folder as the workbook with the macro then you
could try:

'*****************************
Dim sFold
sFold = ThisWorkbook.Path

Workbooks.Open Filename:= sFold & ":xxx.xls"
'*****************************

Tim

 

[Tausif]

Is your macro in the same folder as the other workbooks ?
If yes,
you cld use something like this.
Workbooks.Open (ThisWorkbook.Path & "\" & "xxx.xls")

If No,
You need to provide a way for the macro to knw where the files are stored.
Mulitple ways to do this. Try the foll below.

Sub FolderPath()
Dim FolderDestn As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
FolderDestn = .SelectedItems(1)
Else
FolderDestn = vbNullString
End If
End With
Workbooks.Open (FolderDestn & "\" & "xxx.xls")

End Sub

HTH,