Well, since someone has already done what looks like a homework
assignment... {grin}

Function FileIsOpen(Filename As String) As Boolean
On Error Resume Next
FileIsOpen = Not (Workbooks(Filename) Is Nothing)
End Function
Sub testIt2()
MsgBox FileIsOpen("book2")
MsgBox FileIsOpen("xxxxxx")
End Sub

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article ,
says...

switch to all open workbooks apart from activeworkbook and other
windows.

On switching check whether file "MYFILE.xls" is opened or not and
display msgbox saying "MYFILE is opened" else "Not opened".


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=376525