Generar un macho de excel para crear un archivo plano

Estoy intentando generar un macro en Excel 2010, que me permita generar un archivo plano de de la información que existe solo en la columna A, a partir de la columna (A3), lo he realizado de la siguiente manera:

Sub plano()
Dim Resp As Byte
Resp = MsgBox("Desea generar el Archivo Plano?", _
vbQuestion + vbYesNo, "Confirmación")
If Resp = vbYes Then
'MsgBox "Se está generando el Archivo Plano", vbInformation, "Confirmación"
Range("a3").Select
Open "Archivo plano.txt" For Output As #1
Do While ActiveCell.Value <> ""
dato = ActiveCell.Value
Print #1, dato
ActiveCell.Offset(1, 0).Select
Loop
Close #1
MsgBox "El archivo plano ha sido generado exitosamente", 64, "Archivo Plano"
Else
MsgBox "Se ha cancelado la generación del Archivo Plano", vbCritical, "Cancelación"
End If
End Sub

Al realizar crear el documento en formato .XLSM, me lo ejecuta sin ningún problema, sin embargo, al cerrar el archivo y abrirlo nuevamente, solo me ejecuta los MsnBox y me crear un nuevo Archivo Plano en formarto .TXT. Espero que me puedan colaborar.

Muchas Gracias.