Sub PickFolder()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    Dim MyCheck As Boolean
 
    With fd
       If .Show = -1 Then
          For Each vrtSelectedItem In .SelectedItems
             Select Case False
                Case MyCheck = vrtSelectedItem Like "*.xlsx", _
                   MyCheck = vrtSelectedItem Like "*.xls"
                   MyCheck = vrtSelectedItem Like "*.xlsm" 
                  MsgBox "Неверный формат"
                   Exit Sub
             Case Else
                   MsgBox "Путь к файлу: " & vrtSelectedItem
 
             End Select
            Next vrtSelectedItem
          Else
       End If
    End With
 
End Sub