Writing to a text file some data
 

activesheet.copy
With Activesheet
set rng = .Range(.Range("C5"),.Range("C5").End(xldown))
.rows(rng.rows(rng.rows.count).row & ":65536").Delete
rng.copy .Range("A1")
.Range("B:IV").EntireColumn.Delete
set rng = .Range("A1").Resize(rng.count)
for each cell in rng
cell.Value = "Check " & cell.value " & done"
Next
End with
Activeworkbook.SaveAs "C:\Files\MyText.csv, FileFormat:=xlCSV

--
Regards,
Tom Ogilvy

"mark" wrote in message
...
I need to export to text file a column starting in C5, BUT I don't know
how
many entries in the column.
I actually need to add the word Check before the entry of the column and
the word Done after.
For example if I have 3 entries: 77777
98988
98881

Will need to be exported as:
Check 77777 Done
Check 98988 Done
Check 98881 Done
Can it be done?

Many Thanks
M