[VBA] Ricerca cartella con nome parziale

[Jonny Gulash]

Mi viene in mente una cosa del genere:

Sub Macro10()
Dim nome_commessa As String, sFilename As String
    nome_commessa = InputBox("Inserire il nome della commessa:", "Inserisci nome file")
    sFilename = "Z:\ArchivioCommesse\_comm 2011\" & nome_commessa & " - ciao\prova.xls"
    Workbooks.Open Filename:=sFilename
End Sub