Sub AttachFile_test()    ' пример использования
    Filename$ = GetFilePath()
    If Filename$ = "" Then Exit Sub
    MsgBox "Выбран файл: " & Filename$
End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:\", _
                     Optional ByVal FilterDescription As String = "Файлы счетов", _
                     Optional ByVal FilterExtention As String = "*.*") As String
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title:
        .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
        
        folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
        SaveSetting Application.Name, "GetFilePath", "folder", folder$
    End With
End Function
Sub fffff()

Dim wb2 As Workbook
Dim myPath2 As String
Dim myFile2 As String
Dim myExtension2 As String

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

myPath2 = "G:\"
myExtension2 = "Вася.xlsx"
myFile2 = Dir(myPath2 & myExtension2)
  
Set wb = Workbooks.Open(Filename:=myPath2 & myFile2)

Dim wb_ As Workbook
Dim lc As Variant

'fp_ = "G:\34\"
'fn_ = Dir(fp_ & "*.xls*", vbNormal)

On Error Resume Next

Set wb_ = GetObject(Filename$) ' сюда хочу передать название имени выбранного файла, чтобы в условный файл  Вася.xlxx из него заполнились данные
        With wb_.Sheets("Лист1")

ronumber = .Cells(1, 3).Value
Cells(1, 1).Value = ronumber
a = Split(Cells(20, 3).Value)
Cells(20, 3).Value = a(0) + " " + Left$(a(1), 1) + ". " + Left$(a(2), 1) + "."
        End With

        wb_.Close False
        lr_ = Empty
        fn_ = Dir()

wb.Close SaveChanges:=True
myFile2 = Dir

Application.DisplayAlerts = False
Application.DisplayAlerts = True
ActiveWorkbook.Close SaveChanges:=True
    
End Sub