Переключение между книгами после использования формы

Sub ReqForm()
MKTG = ActiveWorkbook.Name
Start = ActiveCell.Row 
Fname = Range("BH" & Start).Value 
yourdate = Format(Date, "yyyy-mm-dd") 
Fname = Fname & yourdate & ".xlsx" 
Worksheets("ReqForm").Copy 
 
Dim x As String
strPath = "C:\Temp" 
On Error Resume Next
x = GetAttr(strPath) And 0
If Err = 0 Then 
FileNameXls = strPath & "\" & Fname
ActiveWorkbook.SaveAs Filename:=FileNameXls 
 
Else 
MsgBox "Путь не доступен " & strPath, vbCritical
End If
 
Windows(MKTG).Activate 
 
UserForm1.Show 
supplier = UserForm1.ComboBox1.Value
summ = UserForm1.TextBox1.Value
Unload UserForm1
 
Windows(FileNameXls).Activate 
 
Range("AP14").Select
ActiveCell.FormulaR1C1 = supplier 
Range("AP15").Select
ActiveCell.FormulaR1C1 = summ
 
End Sub

Public Sub CommandButton1_Click()
    supplier = UserForm1.ComboBox1.Value
    summ = UserForm1.TextBox1.Text
    Unload Me
End Sub
 
Private Sub CommandButton2_Click()
    supplier = UserForm1.ComboBox1.Value
    summ = UserForm1.TextBox1.Text
    Unload Me
End Sub
 
Private Sub UserForm_Initialize()
    Dim iLastRow As Long
    iLastRow = Worksheets("Suppliers").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To iLastRow
    ComboBox1.AddItem ActiveWorkbook.Worksheets("Suppliers").Range("A" & i).Value
    Next i
    
End Sub

Sub tt()
    Sheets(1).Copy
    Set wb = ActiveWorkbook
    MsgBox wb.Sheets(1).[a1]
End Sub