Move an excel sheet into a new workbook and convert to a .txt file

[AxMan]

Hi all,

I'm trying to copy and paste cells A:D from a sheet into a new workbook and then in turn convert the new workbook into a .txt file, is there a good way to do this?

I have tried the below code but all it does is copy and paste cells A:D back into the same worksheet!

Sub Macro2()


x = ActiveWorkbook.Name


Sheets("Goods in").Select
Columns("A:D").Select
Selection.Copy

Workbooks.Add
Windows(x).Activate
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs


End Sub

Any help is appreciated.

 

[AxMan]

Scratch that, I've managed to get the data to paste in the new workbook... just need to bring up the file->Save As window... is there an easy way to bring up the File Save As window?