Andrea

This works great. In the Save As window it only gives me the option of All
Files in the Save as type box. Is there a way of getting this to save as
workbook, or am I trying to be too clever?

Regards

Rob

"Andrea Jones" wrote:

Here is some code that will do everything up until providing a Save As window
for you to enter the filename:

Sub expsheet()
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
Do
fName = Application.GetSaveAsFilename
Loop Until fName < False
ActiveWorkbook.SaveAs Filename:=fName
End Sub

Andrea Jones

"RobG" wrote:

Hi all

I need a simple macro to export one worksheet, including formulae, values
and all formating, to a new workbook. Can anyone help me?

Rob