Sub checkisopen()
On Error Resume Next
If Application.Workbooks("abc.xls") Is Nothing Then
MsgBox ("abc.xls is not open")
Else
MsgBox ("abc.xls is open")
End If

End Sub

thanks

Joh

--
johncassel
-----------------------------------------------------------------------
johncassell's Profile: http://www.excelforum.com/member.php...fo&userid=2501
View this thread: http://www.excelforum.com/showthread.php?threadid=56562