Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\MyFolder\MySubFolder\Test.xls"
ActiveWorkbook.Close
End Sub

What did you want to happen to the original workbook?
--


XL2003
Regards

William
willwest22@yahoo.com


"VilMarci" <dontsend@here.com> wrote in message
news:%2303MpFsWFHA.3140@TK2MSFTNGP14.phx.gbl...
> Hi,
>
> How can I save only the active sheet of a workbook in VBA?
>
> Marci
>
>