Thanks for your help. Only one more thing how do I save the workbook as
everytime I try and save it goes to the BeforeSave procedure?

Thanks,

"Norman Jones" wrote:

Hi Biker,

Try:

'=============
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub

'---------------

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


---
Regards,
Norman



"biker" wrote in message
...
When an excel file (read only) is loaded and then the user goes to save
it.
It then asks the user to save a copy. How do I prevent this from popping
up?
I thought of

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Close (SaveChanges = False)
End Sub

But I'm not sure if it always works and if its good to remove display
alerts

Is this the correct way to do this?

Thanks,