Hi - Welcome to the board
There is no boolean to check, but this will work
Sub test()
MyWorkBook = InputBox("What workbook do you think is open?")
On Error Resume Next
Windows(MyWorkBook).Activate
If Err <> 0 Then
MsgBox ("Its not open")
Else
MsgBox ("Its open")
End If
On Error GoTo 0
End Sub
Instead of the inputbox you could just type the workbook name in if you know what it is. As it is written now you need the full name and extension for it to work (i.e. book1.xls).