Application.DisplayAlerts = False
Workbooks(3).Activate
Worksheets("Main Components").Delete
Worksheets("Hook-Up Material (Mechanical)").Delete
Worksheets("Hook-Up Material (Electrical)").Delete
Worksheets("Spare Parts").Delete
Workbooks(3).Save
Application.DisplayAlerts = True

--
Regards,
Tom Ogilvy


"SusieQ" wrote in
message ...

Hi,

Is there any way to delete the following worksheets without the program
asking the user if it is ok? ie. automatically without the user
knowing.

Workbooks(3).Activate
Worksheets("Main Components").Delete
Worksheets("Hook-Up Material (Mechanical)").Delete
Worksheets("Hook-Up Material (Electrical)").Delete
Worksheets("Spare Parts").Delete
Workbooks(3).Save

Thanks
Susie


--
SusieQ
------------------------------------------------------------------------
SusieQ's Profile:
http://www.excelforum.com/member.php...o&userid=30818
View this thread: http://www.excelforum.com/showthread...hreadid=512734