Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Sheets("Лист1").[A3,B3]) Is Nothing Then
        bEvents = True
        UserForm1.TextBox1 = Sheets("Лист1").[A3]
        UserForm1.TextBox2 = Sheets("Лист1").[B3]
        bEvents = False
    End If
End Sub

Private Sub TextBox1_Change()
    If Not bEvents Then
        Application.EnableEvents = False
        Sheets("Лист1").[A3] = (Me.TextBox1)
        Application.EnableEvents = True
        'UserForm_Initialize
        'чтобы формат выводился текстовый удаляем CDbl вводим (Me.TextBox1) '
    End If
End Sub

Private Sub TextBox2_Change()
    If Not bEvents Then
        Application.EnableEvents = False
        Sheets("Лист1").[B3] = (Me.TextBox2)
        Application.EnableEvents = True
        'UserForm_Initialize
        'чтобы формат выводился текстовый удаляем CDbl вводим (Me.TextBox1) '
    End If
End Sub

Private Sub TextBox1_Change()
TextBox1.Text = Range("Лист1!A3").Value
End Sub

Private Sub CommandButton1_Click()
Sheets("Лист1").[A3] = Me.TextBox1
End Sub

Sub www()
    Dim s
    s = Application.GetOpenFilename("Files (*.*), *.*")
    If s <> False Then
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=s, _
                                   TextToDisplay:=s
    End If
End Sub

Workbooks("Книга1.xlsm").Worksheets("Инф. Заказчик").Range("A1").PasteSpecial xlPasteValues

Sub КопиВставка()
Workbooks.Open Filename:="C:\Users\Valera\Desktop\Новая папка (2)\Книга2.xlsm"
Workbooks("Книга2.xlsm").Worksheets("Инф. Заказчик").Range("A1:C16").Copy
Workbooks("Книга1.xlsm").Activate
ActiveWorkbook.Worksheets("Инф. Заказчик").Select
Range("A1").Select
ActiveSheet.Paste
Workbooks("Книга2.xlsm").Worksheets("Расчет выброса").Range("A1:C25").Copy
Workbooks("Книга1.xlsm").Activate
ActiveWorkbook.Worksheets("Расчет выброса").Select
Range("A1").Select
ActiveSheet.Paste
Workbooks("Книга2.xlsm").Close
End Sub

Function GetFileName(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath, _
                     Optional ByVal MyFilter As String = "Книги Excel (*.xls*),") As String
    ' функция выводит диалоговое окно выбора папки с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
    If Not IsMissing(InitialPath) Then
        On Error Resume Next: ChDrive Left(InitialPath, 1)
        ChDir InitialPath    ' выбираем стартовую папку
    End If
    res = Application.GetOpenFilename(MyFilter, , Title, "Открыть")  ' вывод диалогового окна
    GetFileName = IIf(VarType(res) = vbBoolean, "", res)    ' пустая строка при отказе от выбора
End Function
 
Sub ПримерИспользования_GetFileName()
    ИмяФайла = GetFileName("Заголовок окна", ThisWorkbook.Path)   ' запрашиваем имя файла
    ' ===================== другие варианты вызова функции =====================
    ' текстовые файлы, стартовая папка не указана
    '       ИмяФайла = GetFileName("Выберите текстовый файл", , "Текстовые файлы (*.txt),")
    ' файлы любого типа из папки "C:\Windows"
    '       ИмяФайла = GetFileName(, "C:\Windows", "")
    ' ==========================================================================

    If ИмяФайла = "" Then Exit Sub    ' выход, если пользователь отказался от выбора файла
    MsgBox "Выбран файл: " & ИмяФайла, vbInformation
End Sub