Excel - Exportar Hoja a texto plano

Hola foreros

Necesito exportar una hoja de excel a un archivo de texto plano, sin ningun separador, he buscado en este foro y en google y encontre el siguiente fragmento de codigo:

Private Sub ExportarTexto()

Dim FileSysObj As Object
Dim ArchivoTxt As Object
Dim strLineaTexto As String
strLineaTexto = Range("A1") & Range("B1") & Range("C1")
Set FileSysObj = CreateObject("Scripting.FileSystemobject")
Set ArchivoTxt = FileSysObj.CreateTextFile("C:\Ejemplo.txt", True)
ArchivoTxt.WriteLine strLineaTexto
ArchivoTxt.Close
End Sub

A esto lo pongo en el editor de Visual Basic en Excel y le doy ejecutar, como error me dice que falta una variable with o variable de objeto no establecido. Que estoy haciendo mal? me podrian indicar con detalle como resolver esto? soy novato en macros.

saludos y gracias
pedro

¿Cómo has llegado a realizar ese código? :-o

No es una forma muy estandard de convertir un fichero a formato texto pero ...

¿Por qué no usas la forma clásica que funciona siempre?
Open "namefile.txt" For OutPut as #1
Print #1, StrVar
Close #1

Saludos

Gracias x responder Jose

No se si lo estoy utilizando bien, pero voy a macros/editor VB y me sale:

Private Sub Workbook_Open()

End Sub

Pongo el codigo que me distes adentro, y le doy ejecutar... me sale "Se ha producido el error 53... Archivo no encontrado"

Espero puedas ayudarme
saludos
Pedro