Open a Workbook

Sub OpenWorkbook(myWorkbook As Workbook, _
                    strFullFileName As String, _
                    strWorkbookName As String)
'This routine will attempt to open a workbook and then return a reference to the workbook

    If Not IsWorkbookOpen(strWorkbookName) Then
        Set myWorkbook = Application.Workbooks.Open(strFullFileName)
    Else
        Set myWorkbook = Workbooks(strWorkbookName)
    End If
 
End Sub
 
Function IsWorkbookOpen(wbName As String) As Boolean
'Will verify if a Workbook is open before trying to open it
Dim wb As Workbook
 
    IsWorkbookOpen = True
    On Error Resume Next
    Set wb = Workbooks(wbName)
    If wb Is Nothing Then IsWorkbookOpen = False
 
End Function

Sub TestOpenWorkbook()
 
Dim myWorkbookReference             As Workbook
Dim strFileName                     As String
 
    Call OpenWorkbook(myWorkbookReference, "c:\Temp\Test.xls", "Test.xls")
 
End Sub