« File Exists on Disk
If My Head Gets Any Bigger… »

Workbook Exists

May 14, 2004, 11:25 am 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

Category: VBA Code Library  |  Comment (RSS)

2 Comments

  1. Jake Marx says:
    May 14, 2004 at 4:39 pm

    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
  2. Jake Marx says:
    May 14, 2004 at 4:44 pm

    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

To post VBA code in your comment, use <code> tags, like this: <code lang="vb">Code goes here</code>.

Leave a Reply