Visual Basic - Abrir archivo sin importar una parte del nombre

Sub Busca()

    Dim Name as String, Num as Integer

    Name = Dir("C:\Carpeta_1\Archivo*_Rendimiento*xls*"): Num=0

    While Name <> ""

        Num = Num +1

        MsgBox Num & " - " & "C:\Carpeta_1\" & Name

        Name = Dir()

    Wend

    Name = Dir("C:\Carpeta_2\Archivo*_Rendimiento*xls*"): Num=0

    While Name <> ""

        Num = Num +1

        MsgBox Num & " - " & "C:\Carpeta_2\" & Name

        Name = Dir()

    Wend

Sub AbreyPegaArchivos()

    Dim sites(1 To 14) As String

        sites(1) = "ALV01"

        sites(2) = "RVD01"

        sites(3) = "PNT01"

        sites(4) = "PJV01"

        sites(5) = "NSC01"

        sites(6) = "PSG01"

        sites(7) = "ILH01"

        sites(8) = "IGP01"

        sites(9) = "GRA01"

        sites(10) = "PND01"

        sites(11) = "LAL01"

        sites(12) = "CND01"

        sites(13) = "GNB01"

        sites(14) = "SST01"

    Dim MainWB As Workbook ' Este sera el Alto Sertao DBO

    Set MainWB = ActiveWorkbook

    MainWB.Activate

    Funcion1 = SeleccionarDirectorio(direct) '  con esto me sale una pantalla donde selecciono la carpeta donde estan los 14 archivos

    For k = 1 To 14

        RUTAPERF = direct & "\" & sites(k) & "-Performance" & ".xls"

                Set Planteff_Wb = Excel.Workbooks.Open(RUTAPERF) ' ABRO LOS ARCHIVOS

....

End sub