Daten aus geschlossener Datei holen ANPASSUNG

Public Function GetDataClosedWB(SourcePath As String, _
SourceFile As String, sourceSheet As String, _
sourceRange As String, TargetRange As Range) As Boolean
Dim strQuelle       As String
Dim Zeilen          As Long
Dim Spalten         As Byte
On Error GoTo InvalidInput
strQuelle = "'" & SourcePath & "[" & SourceFile & "]" & sourceSheet & "'!" & Range( _
sourceRange).Cells(1, 1).Address(0, 0)
Zeilen = Range(sourceRange).Rows.Count
Spalten = Range(sourceRange).columns.Count
With TargetRange.Cells(1, 1).Resize(Zeilen, Spalten)
.Formula = "=IF(" & strQuelle & "="""",""""," & strQuelle & ")"
.Value = .Value
End With
GetDataClosedWB = True
Exit Function
InvalidInput:
MsgBox "Die Quelldatei oder der Quellbereich ist ungültig!", vbExclamation, "Get data from"
GetDataClosedWB = False
End Function

Public Sub Daten_holen()
Dim Pfad            As String
Dim DateiName       As String
Dim Blatt           As String
Dim Bereich         As String
Dim Ziel            As Range
Pfad = Range("Dateipfad").Value
DateiName = Range("Dateiname").Value
Blatt = Range("Tabellenname").Value
Bereich = Range("Kopierbereich").Value
Set Ziel = Tabelle13.Range("Einfügebereich")
If GetDataClosedWB(Pfad, DateiName, Blatt, Bereich, Ziel) Then
End If
End Sub

Bisher war der Dateiname immer gleich. Num wird die Datei bei Änderungen aber mit einen Datum ( _
Format: 20150808_Dateiname) vorangestellt abgespeichert.
Ich habe schon diverse Joker (* oder ?) versucht, aber das akzeptiert das Makro nicht.
Was muss denn wie geändert werden, das die Datei, unabhängig vom vorangestellten Datum,  _
gefunden wird?
Vielen Dank für Eure Unterstützung!
Michael