Hi Amy

I know, I know. I seem to have a real problem reading the last fe
words of a post. Please excuse my silliness and try this instead.

Sub CheckFile()
On Error Resume Next
Set a = Workbooks("\\server1\files\amy\Activity.xls")
If Err = 0 Then
Windows("\\server1\files\amy\Activity.xls").Activa te
Exit Sub
End If
Workbooks.Open Filename:="\\server1\files\amy\Activity.xls"
End Sub

Is that any better?

HTH

Dominic

--
dominic
-----------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...fo&userid=1893
View this thread: http://www.excelforum.com/showthread.php?threadid=39605