You have to copy the worksheet to a new workbook and save that

Worksheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:="myFile.xls"

--

HTH

RP
(remove nothere from the email address if mailing direct)


"phlashh1" wrote in message
...
Thank you so much for your help. BUT, I do have another question:
instead of saving the whole workbook to the "backup" drive, how would I
just
save one worksheet of a workbook?

"Gord Dibben" wrote:

I knew that<g

Just offered an alternative for automation in case OP wanted it.


Gord

On Tue, 25 Jan 2005 21:06:24 -0000, "Bob Phillips"
wrote:

Gord,

I meant in the windows environment :-)

Process, not automation!

Bob

"Gord Dibben" <gorddibbATshawDOTca wrote in message
.. .
Or copy when you save it?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'Saves the current file to a backup folder and the default folder
'Note that any backup is overwritten
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:="intranet path\" & _
ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub


Gord Dibben Excel MVP

On Tue, 25 Jan 2005 17:17:35 -0000, "Bob Phillips"
wrote:

Copy the file after you have saved it?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Phlashh" wrote in message
...
A worksheet residing on my C drive is also on my company intranet.
How
do
I
make changes to the C drive copy and have the same changes
incorporated
in
the intranet copy?