Gret ha scritto:

Chiedo questo perchè il file viene continuamente spostato.

se cambi sembre indirizzo di casa, chi ti vuole spedire la posta, deve sapere l'indirizzo completo non puo pedirti la posta indicando solo il numero civico  

>br>

invece si può fare con una ricerca ricorsiva

Sub FindFileSubFolders() ' ricorsiva
Dim objFSO As Object, objTopFolder As Object, strTopFolderName As String
Dim fName As String, newpath As String
strTopFolderName = "F:\Download\" ' cartella madre con sottocartelle
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTopFolder = objFSO.GetFolder(strTopFolderName)
  fName = Range("A4")
  Call RecursiveFind_Folder(objTopFolder, fName)
End Sub
Sub RecursiveFind_Folder(objFolder As Object, fName As String)
Dim objFile As Object, objSubFolder As Object
On Error Resume Next
For Each objFile In objFolder.Files
   If objFile.Name = fName Then
       Workbooks.Open objFile
       Exit Sub
   End If
Next objFile
For Each objSubFolder In objFolder.Subfolders
   Call RecursiveFind_Folder(objSubFolder, fName)
Next objSubFolder
End Sub