Export *.txt to 'current_filename'.txt in Current Working Folder

Hi All,

Just a quick one,

I would like to change the following recorded macro such that on my desired sheet I can run the macro and it will automatically save the data as a *.txt where '*' is the same as the current workbook name, in this case 'Results1'. I would also like the *.txt file to be saved to the current folder in which the worksheet.xls is present, in this case TEST.

Sub save_txt_current_file_and_location()
ChDir _
"C:\Documents and Settings\xxxx\My Documents\TEST\Results1"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxxx\My Documents\TEST\Results1.txt" _
, FileFormat:=xlText, CreateBackup:=False
End Sub

Hopefully this can be done - I'm sure it can be, I just don't have a clue how .

Thanks in advance!

Cheers

I think the following should do it

Please Login or Register  to view this content.

Cheers Phil_V, Popped in the code - worked straight of the bat!

Thanks for your swift and accurate reply.

Cheers!!