That's what I had before but it always asks to save the new file twice. Also
if I want to cancel the save it just keeps looping which is why I added the
last bit:

Or msoButtonSetOkCancel = Cancel.

Any more suggestions?

"Bob Phillips" wrote:

Remove the cancel test

Do
fname = Application.GetSaveAsFilename
Loop Until fname < False


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Gina" wrote in message
...
Hi,

I want to save a worksheet in a workbook as a separate excel file
containing
that one sheet, when a button is clicked. The code i have is:

Do
fName = Application.GetSaveAsFilename
Loop Until fName < False Or msoButtonSetOkCancel = Cancel

But it doesn't seem to work properly. Can anyone help?

Thanks