Comments on: Workbook Exists http://www.dailydoseofexcel.com/archives/2004/05/14/workbook-exists/ Daily posts of Excel tips…and other stuff Wed, 08 Feb 2012 23:58:05 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: Jake Marx http://www.dailydoseofexcel.com/archives/2004/05/14/workbook-exists/#comment-1512 Jake Marx Fri, 14 May 2004 23:44:00 +0000 http://www.dailydoseofexcel.com/?p=546#comment-1512 <p>Or faster yet:</p> <pre>Function WorkbookExists(sWbName As String) As Boolean On Error Resume Next WorkbookExists = Not Workbooks(sWbName) Is Nothing On Error GoTo 0 End Function </pre> 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
]]> By: Jake Marx http://www.dailydoseofexcel.com/archives/2004/05/14/workbook-exists/#comment-1511 Jake Marx Fri, 14 May 2004 23:39:00 +0000 http://www.dailydoseofexcel.com/?p=546#comment-1511 <p>Dick,</p> <p>Although this is less readable, it's faster and a bit shorter:</p> <pre>Function WorkbookExists(sWbName As String) As Boolean On Error Resume Next WorkbookExists = Len(Workbooks(sWbName).Name) On Error GoTo 0 End Function </pre> 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
]]>