Erro ao importar aquivo txt

Boa Tarde;

Estou com o seguinte problema.
Montei uma macro no excel 2010 que importa um arquivo txt, mas esta dando erro na linha Refresh BackgroundQuery, acontece que se eu informar o caminho ele executa bem, mas não é isso que eu quero, quero localizar o arquivo a onde ele estiver no computador, quando faço isso erro 1004. Alguem pode me ajudar? Abaixo a macro.
Sub Macro1()
'
Dim NomeArquivo As String
      Dim FileToOpen
      FileToOpen = Application.GetOpenFilename("Arquivos de Texto(*.Txt),*.txt")
      NomeArquivo = FileToOpen
     If NomeArquivo = "" Then Exit Sub
     With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & NomeArquivo & ".txt", Destination _
        :=Range("A1"))
        .Name = NomeArquivo
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(10, 20, 4, 21, 21, 20, 20)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Grato

Olá, seja bem vindo ao fórum! O Máximo trata exclusivamente de assuntos relacionado ao Microsoft Access. Sugiro procurar um fórum de Excel. Mas tente colocar um MsgBox NomeArquivo logo depois da linha NomeArquivo = FileToOpen para ver se retorna o caminho ou o que que retorna.

Obrigado;

Testei montando um form e deu certo, me parece que no excel 2010 ele pega o caminho e acha que é o nome do arquivo.

grato