Use the 'SaveCopyAs' method instead of 'SaveAs'.

If you're only interested in a single worksheet (or several sheets but not
the entire workbook) being made into the new workbook, you can use the
'Copy' method on worksheets but don't use 'Paste' and you end up with a new
workbook with just those sheets that becomes the active workbook.


Steve Yandl

"crmulle" wrote in message
...
I perform a file save as in the workbook but when I do this I the original
file is no longer open. This causes me to manully reopen the original
file.
I would like the original file to remain open even during or after the new
workbook is created.

Any ideas....thank you.

My current code is below:

ActiveWorkbook.SaveAs Filename:="WHLS Oversight Rpt " & Format(Date,
"mmddyy") & ".xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Application.DisplayAlerts = True

Application.ScreenUpdating = True

ActiveWorkbook.Close

End Sub