Workbook Exists

Posted on May 14, 2004June 25, 2012 by Dick Kusleika

Function WorkbookExists(sWbName As String) As Boolean 'Returns True if workbook is open


    Dim oWb As Workbook

On Error Resume Next Set oWb = Workbooks(sWbName) WorkbookExists = Not CBool(Err.Number) On Error GoTo 0 End Function

2 thoughts on “Workbook Exists”

Dick,

Although this is less readable, it’s faster and a bit shorter:

Function WorkbookExists(sWbName As String) As Boolean
    On Error Resume Next
        WorkbookExists = Len(Workbooks(sWbName).Name)
    On Error GoTo 0
End Function

Function WorkbookExists(sWbName As String) As Boolean

On Error Resume Next

WorkbookExists = Len(Workbooks(sWbName).Name)

On Error GoTo 0

End Function

Or faster yet:

Function WorkbookExists(sWbName As String) As Boolean
    On Error Resume Next
        WorkbookExists = Not Workbooks(sWbName) Is Nothing
    On Error GoTo 0
End Function

Function WorkbookExists(sWbName As String) As Boolean

On Error Resume Next

WorkbookExists = Not Workbooks(sWbName) Is Nothing

On Error GoTo 0

End Function

Posting code? Use <pre> tags for VBA and <code> tags for inline.

Daily Dose of Excel

Haphazardly Posted Excel Information and Other Stuff

Workbook Exists

2 thoughts on “Workbook Exists”

Leave a Reply