Visual Basic para Aplicaciones - Consulta VBA for Excel

Sub Test()

Call SaveToFile(Range("A1").Value)

End Sub

Private Sub SaveToFile(ByVal sValue As String)

Dim hFile%

On Error Resume Next

hFile = FreeFile

Open "FileName.txt" For Append As #hFile

Print #hFile, sValue

Close #hFile

End Sub