Envie o código que está utilizando ou o arquivo de Excel completo.

Ok, editei o post e coloquei o arquivo que faltava!

Obrigado desde já.

Nesta linha você já tem o arquivo:

[url] Arquivo = Application.GetOpenFilename("Arquivos Texto(*.txt), *.txt")
[/url]

Depois desta linha, você pode fazer algo do tipo:

plan1.range("C2").value = Arquivo

Fiz conforme você recomendou, deu certo só preciso retirar o nome do arquivo pois vem o caminho todo, mas isso consigo fazer, alguma ideia para travar o local para a busca do arquivo?
Quando abro a 1ª vez tenho que encontrar a pasta em que o arquivo esta, nas importações seguintes só preciso colocar o nome do arquivo a importar, gostaria que este fosse o padrão ou seja eu determino dentro da macro o caminho onde o arquivo vai estar e o usuário vai apenas clicar no botão para abrir a macro digitar o nome do arquivo e clicar em abrir.

Obrigado!

Seria algo mais ou menos assim:

sub teste ( )
dim coluna as integer
dim achou as boolean
achou=false
'Percorrer as colunas da linha 2
for coluna = 1 to 200
'se alguma célula tiver o mesmo valor que o nome do arquivo
if sheets("Planilha1").cells(2,coluna).value = Arquivo then
'encontrou o arquivo
achou = true

end if

next coluna
'se não encontrou o nome do arquivo
if achou = false then

'código para importar

else
' caso contrário,
'dá a mensagem

msgbox "Este arquivo já foi importado"

'sai do procedimento
exit sub
end if
end sub