Hi Gyro,

Private Sub Workbook_BeforeSave( _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = SaveAsUI
End Sub

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"gyro" wrote in message
...
Hi
Need a way to prevent "saveas" but not "save" in worksheet code
Workbook_BeforeSave.
thx