You need the function also

Function IsWorkBookOpen(sWB)
On Error GoTo NotOpen
Workbooks(sWB).Activate
IsWorkBookOpen = True
Exit Function
NotOpen:
IsWorkBookOpen = False
End Function


--
Regards Ron de Bruin
http://www.rondebruin.nl


"ianripping " wrote in message ...
I tried this and get sub or function not defined


---
Message posted from http://www.ExcelForum.com/