Dim dlg As FileDialog
Dim si As Variant
Dim FileName As String
Dim vrtSelectedItem As Variant
 
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
 
With dlg
    .AllowMultiSelect = False
    .ButtonName = "Dosya Seç"
    .Filters.Add "Excel", "*.*; *.xls"
    .Filters.Add "All", "*.*"
    .FilterIndex = 0
    .InitialFileName = Environ("UserProfile") & "\My Documents\*.*"
    .InitialView = msoFileDialogViewThumbnail
    .Title = "Dosya Seç..."
        If .Show = True Then
            For Each vrtSelectedItem In .SelectedItems
                FileName = vrtSelectedItem
            Next vrtSelectedItem
            msgbox FileName ' dosya adı budur
 
        End If
End With