Boa tarde pessoal.

Possuo o código que abre um arquivo copiar tudo para outro arquivo e fecha.

    ChDir "C:relato"
    Workbooks.OpenText Filename:="C:relato01-01.##r", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), _
        TrailingMinusNumbers:=True
    Range("A1:A30000").Select
    Selection.Copy
    Windows("Verificação de Erros.xlsm").Activate
    Sheets("Base2").Visible = True
    Sheets("Base2").Select
    Range("B10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("001-01.##r").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close

Na segunda linha eu informei que quero o arquivo 001-01

Eu consigo substituir isso, usando como referência uma célula ?

Exemplo na Célula A1 contém o valor 001-01

eu deixar o código de grosso modo como abaixo ?

Workbooks.OpenText Filename:="C:relatoPlan1!A1.##r", Origin:=xlWindows, _

Desde já agradeço!