Boa tarde.

Tenho uma macro que abre um arquivo TXT e copia os dados.

Eu tinha esse código.

    Workbooks.OpenText Filename:= _
        "G:CONTABILIDADECARLOS RAFAELConciliações2016 - 08.Agosto2110109 - Conciliação - 2016.08 - Fornecedores Diversos2110109 - Conciliação - 2016.08 - Fornecedores Diversos - Financeiro 40 a 50.##r" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
        Array(0, 2), TrailingMinusNumbers:=True

E substitui por esse.

    Workbooks.OpenText Filename:= _
        Plan02.[B4] _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
        Array(0, 2), TrailingMinusNumbers:=True

Na célula B4 eu coloquei com fórmula o mês que eu quero que abra o arquivo.
Resultado da fórmula: G:CONTABILIDADECARLOS RAFAELConciliações2016 - 08.Agosto2110109 - Conciliação - 2016.08 - Fornecedores Diversos2110109 - Conciliação - 2016.08 - Fornecedores Diversos - Financeiro 40 a 50.##r
Igual a da Macro que substitui.

No final da "importação"

Tinha este código.

    Windows( _
        "2110109 - Conciliação - 2016.08 - Fornecedores Diversos - Financeiro 40 a 50.##r" _
        ).Activate
    ActiveWindow.Close

E substitui por este

    Windows(Plan02.[B6]).Activate
    ActiveWindow.Close

O resultado da célula B6 é:
2110109 - Conciliação - 2016.08 - Fornecedores Diversos - Financeiro 40 a 50.##r
Igual os dados que tinham anteriormente.

Porém no quando chega na parte de fechar o arquivo da pau.

Erro 13
Tipos incompatíveis

Sou leigo em VBA, já tentei verificar se é a extensão .r## mas não da certo.

A minha principal dúdiva é:
porque quando na macro está "2110109 - Conciliação - 2016.08 - Fornecedores Diversos - Financeiro 40 a 50.##r" executa a macro e quando referencio uma célula com os mesmos dados não executa.

Segue a macro completa para melhor visualização!

Tipos incompatíveis

    ChDir _
        Plan02.[B2]
    Workbooks.OpenText Filename:= _
        Plan02.[B4] _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
        Array(0, 2), TrailingMinusNumbers:=True
    Range("A1:A10000").Select
    Selection.Copy
    Windows("2110109 - Conciliação - Fornecedores Diversos.xlsm").Activate
    Range("D10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
       
    Windows(Plan02.[B8]).Activate
    ActiveWindow.Close

Valeu!