Hi Jesse,

Function IsWBopen(wb As String) As Boolean
On Error Resume Next
IsWBopen = Len(Workbooks(wb).Name) 0
End Function

Sub test()
MsgBox IsWBopen("funcres.xla")'your workbook name
End Sub


Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/
(Excel Add-ins)

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!