Динамическое имя переменной из ячейки

Sub test()
    ThisWorkbook.Names.Add "переменная", "Путь к файлу", False
    MsgBox ThisWorkbook.Names("переменная").Value
End Sub

Private Sub ss()
    Dim a As Object
    Dim RangeName As String
For i = 2 To 20
    Set a = Sheets("Лист1").Cells(i, 1)
         If a <> "" Then
            RangeName = a
            ActiveWorkbook.Names.Add Name:=RangeName, RefersTo:=a
         End If
Next
End Sub

Sub getConfig()
 
    p& = ThisWorkbook.VBProject.VBComponents("Лист1").CodeModule.ProcBodyLine("main", 0) + 1
    
    dcl_1$ = "Dim " + Range("A1").Value + " as " + Range("B1").Value
    dcl_2$ = "Dim " + Range("A2").Value + " as " + Range("B2").Value
    dcl_3$ = "Dim " + Range("A3").Value + " as " + Range("B2").Value
    
    ThisWorkbook.VBProject.VBComponents("Лист1").CodeModule.InsertLines p&, dcl_1
    ThisWorkbook.VBProject.VBComponents("Лист1").CodeModule.InsertLines p&, dcl_2
    ThisWorkbook.VBProject.VBComponents("Лист1").CodeModule.InsertLines p&, dcl_3
    
End Sub
 
Sub main()
 
    getConfig
 
End Sub