Saving to txt

[moomphas]

Hello,

Currently I'm using the following code to save my sheet to txt:

ActiveWorkbook.SaveAs filename:="C:\test" & "\" & "test" & Format(Now, "ddmmyyyyhhmmss") & ".txt", FileFormat:=xlCSV, _
        CreateBackup:=False

The problem is I can't use any macros after executing this code (it becomes txt in Excel too). Is there any workaround for that? I mean that it would export/save the sheet to txt while staying xlsm in Excel.