You couls use the err. object and on error goto
to catch the error.
On Error Resume Next
'try saving
Code:
--------------------
If Err Then
'do what you want with an error (like checking if it is the read only error)
end if
on error goto 0 'reset error trapping
--------------------
to prevent alert messages....
Code:
--------------------
Application.DisplayAlerts = False
'DO YOUR STUFF
Application.DisplayAlerts = True
--------------------
Hope it helps
--
Dnereb
------------------------------------------------------------------------
Dnereb's Profile:
http://www.excelforum.com/member.php...o&userid=26182
View this thread:
http://www.excelforum.com/showthread...hreadid=396807