Sub tt()
Dim WB As Workbook, shto, shfrom As Worksheet

FilenameToInsert$ = GetFilePath() ' get file name to insert data
If FilenameToInsert$ = "" Then Exit Sub ' if is not exists - exit

Set WB = Nothing: Set WB = Workbooks.Open(FilenameToInsert$, False, True)

If WB Is Nothing Then    '
    MsgBox "файл не открыт" & WB.Name
End If

       WB.Worksheets("лист1").Range("a2") = "WB.Name"
    

Excel.Application.DisplayAlerts = False
  If WB.Saved = False Then ActiveWorkbook.Save
WB.Close SaveChanges:=False
Excel.Application.DisplayAlerts = True
End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                      Optional ByVal InitialPath As String, _
                      Optional ByVal FilterDescription As String = "Файлы счетов", _
                      Optional ByVal FilterExtention As String = "*.*") As String
     On Error Resume Next
     InitialPath = ThisWorkbook.Path & "\"
     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