VBA to Save workbook and then save as/save copy

[ElBB23]

Hi all,

If possible I need a VBA that does the following:-

• Saves the current workbook then,
• Save as/copies the workbook into txt format.

I have the following code but, it appears to be bypassing the first step (just saving the sheet) before moving onto the second step.

ActiveWorkbook.Save
Sheets("sheet 1").Select
ActiveWorkbook.SaveAs Filename:= _
"\\filename.txt" _
, FileFormat:=xlText, CreateBackup:=False




Any help would be appreciated.