Altere "c:\temp\" para o diretório que deseja salvar o arquivo. Não se esqueça do último \ ao especificar esse caminho.
Sub Main()
Dim FileNumber As Integer
FileNumber = FreeFile
Open "c:\temp\" & Range("A1") & ".txt" For Output As FileNumber
Print #FileNumber, "Linha 1"
Print #FileNumber, "Olá mundo! Linha 2!"
Close #FileNumber
End Sub
http://www.ambienteoffice.com.br - http://www.clarian.com.br