Envio de una hoja por email

Tengo un archivo en donde tengo varias columnas, entre ellas hay dos que
son las que interesan , las que tiene el nombre del archivo ( que es un txt)
y otra columna con el destinatario.

Intento que Excel , abra el archivo txt y que luego lo envie al
destinatario.

Tengo problemas cuando quiero enviar el archivo , porque no graba la macro
y que ademas el archivo queda como un excel, que si lo hago con el office 97
no lo hace asi, es decir que quede como un icono.

Desde ya muchas gracias.

Sub Enviodeadjuntos()
'
' Enviodeadjuntos Macro
' Macro grabada el 29/02/2004 por Javier
'

'
Sheets("Hoja1").Select
Range("A1").Select
Selection.CurrentRegion.Select

Cuenta = Selection.Rows.Count

For i = 2 To Cuenta


archivo = Cells(i, 4) ' el nombre del archivo en la hoja de excell
direccion = Cells(i, 6) ' la direccion de email


ChDir "C:\aprueba" ' Cambio de directorio

Workbooks.OpenText Filename:=archivo, Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(0,
1), _
TrailingMinusNumbers:=True




ActiveWorkbook.SendMail Recipients:="Direccion", Subject:="Envío Orden
de pago"

Next


End Sub