fName = "c:\myfolder\something.xls"
if dir(fName) = "" then
activeworkbook.SaveAs fName
else
activeworkbook.Close SaveChanges:=False
end if

--
Regards,
Tom Ogilvy


"Dnereb" <[email protected]> wrote in
message news:[email protected]...
>
> 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
>