Использование textbox при активации листов (книг)

Windows("consum-f").Activate
 textbox1 = "[config-f.xlsx]Лист1'!$L$2"
            Sheets(textbox1).Select
    Sheets("textbox1").Copy After:=Workbooks("bill.xlsx").Sheets(5)
    Sheets("textbox1").Select
    Sheets("textbox1").Name = "consum"

textbox1 = Evaluate("[config-f.xlsx]Лист1!$L$2")

Sub rt()
Dim a(), b(), c(), d(), t&, k&, u&, l&
       Dim shSheet_1 As Excel.Worksheet, shSheet_2 As Excel.Worksheet, consum As Excel.Worksheet
    Dim lStartSheet_1 As Long, lEndSheet_1 As Long, lEndconsum As Long
    Dim lLastRow As Long
    Dim i As Long
    Dim lastrow As Long
 
    
    
    Windows("config-f.xlsx").Activate
 textbox1 = Evaluate("[config-f.xlsx]Ëèñò1!$L$2")
    Windows("consum-f.xlsx").Activate
            Sheets(textbox1).Select
    Sheets("textbox1").Copy After:=Workbooks("bill.xlsx").Sheets(5)
    Sheets("textbox1").Select
    Sheets("textbox1").Name = "consum"
    
 With CreateObject("Scripting.Dictionary"): .CompareMode = 1
        c = [consum!a9].CurrentRegion.Value
        On Error Resume Next
        For l = 1 To UBound(c): .Item(c(l, 1)) = l: Next
        If Error Then MsgBox "ÂÍÈÌÀÍÈÅ! ÍÅ ÂÑÅÌ ÏÓ óäàëîñü ïðèñâîèòü ÒÀÐÈÔÈÊÀÖÈÞ! Íåîáõîäèìà äîðàáîòêà âðó÷íóþ!"
        ' On Error GoTo 0
        d = [shSheet_1!c12].CurrentRegion.Value
        For l = 12 To UBound(d)
            If .Exists(d(l, 3)) Then
                u = .Item(d(l, 3))
                d(l, 7) = c(u, 4): d(l, 13) = c(u, 5): d(l, 14) = c(u, 6): d(l, 15) = c(u, 7)
           Else
                d(l, 9) = vbEmpty: d(l, 9) = vbEmpty
            End If
        Next
[shSheet_1!b12].CurrentRegion.Value = d
    End With
    
End Sub

textbox1=ExecuteExcel4Macro("'C:\temp\[config-f.xlsx]Лист1'!R2C12")

    Sheets("textbox1").Copy After:=Workbooks("bill.xlsx").Sheets(5)
    Sheets("textbox1").Select
    Sheets("textbox1").Name = "consum"

textbox1=Workbooks("config-f.xlsx").Sheets("Лист1").Range("L2")

textbox1 = [[config-f.xlsx]Лист1!$L$2]