Auswahlfenster für Dateien aufrufen

Sub ChooseFolder(Pos As Integer)
Mpath = GetFile(Range(Cells(Pos - 1, 12), Cells(Pos - 1, 12)).Value)
If Mpath = "" Then
Else
Range(Cells(Pos, 12), Cells(Pos, 12)).Value = Mpath
End If
End 

Sub

Function GetFile(Ti As String)
End 

Function
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Title = Ti
.Show
If .SelectedItems.Count = 0 Then
Else
GetFile = .SelectedItems(1)
End If
End With
End Function