Test to see if correct workbook is open

[mattd4385]

I would like to test to see if a workbook is open and if not let the user know.

if i used:

Windows("GeneratorOutages 1 .xls").Activate

but then if the file was not open then upon error i would like to make a pop up a box appear to tell the user the file is not open.

so that the macro will not error out and ask the user to debug.

 

[VoG]

Try like this

If BookOpen("GeneratorOutages 1 .xls") Then
    Workbooks("GeneratorOutages 1 .xls").Activate
Else
    MsgBox "GeneratorOutages 1 .xls must be open", vbExclamation
    Exit Sub
End If
    

'after End Sub
Function BookOpen(wbName As String) As Boolean
On Error Resume Next
BookOpen = Len(Workbooks(wbName).Name)
End Function

 

[AlphaFrog]

Another method.

    Dim wb As Workbook
    On Error Resume Next
    Set wb = Workbooks("GeneratorOutages 1 .xls")
    On Error GoTo 0
    If wb Is Nothing Then
        MsgBox "GeneratorOutages 1 .xls is not open.", vbInformation, "File Not Open"
    Else
        wb.Activate
    End If

 

[mattd4385]

thank you so much works great