Checking For An Open Workbook

[SandraF]

I use the following code to open up a workbook in a macro that I created:

Workbooks.Open "E:\DBTest.xls"
Set wbTemp = ActiveWorkbook

The problem is that if the workbook is already opened, an error occurs. IS there a way to use an IF statement so that if an error occurs, I send a message to the user saying that the workbook is already opened (MsgBox "The Workbook is already opened - Try again later!&quot and then it stops the macro from running?

THanks!!!!!!

 

[dsi]

Assuming that you only have one instance of Excel running:

Public Sub Test()
    If IsAlreadyOpen("DBTest.xls") = True Then
        MsgBox "Already Opened!"
    Else
        MsgBox "Not Opened Yet!"
    End If
End Sub

Public Function IsAlreadyOpen(sName As String) As Boolean
    Dim wbTmp As Workbook
    For Each wbTmp In Application.Workbooks
        If UCase(wbTmp.Name) Like UCase(sName) Then
            IsAlreadyOpen = True
        Else
            IsAlreadyOpen = False
        End If
    Next
    Set wbTmp = Nothing
End Function

Hope this helps! DimensionalSolutions@Core.com