Function InstantiateWorkbook() As Boolean
'Purpose:   Instantiate session's Excel Workbook
'Requires:  RosterPath (Windows Explorer path to workbook)
'Returns:   exwb (Excel Workbook)
'           objExcel (Excel.Application)
'Note:      RosterPath, exwb and objExcel defined in Declarations
    On Error GoTo InstantiateError
    
    Set exwb = objExcel.Workbooks.Open(RosterPath)
    
    On Error Resume Next
    InstantiateWorkbook = True
    Exit Function
    
InstantiateError:
    MsgBox "Error initializing Roster Spreadsheet." & vbCrLf & _
        "Have programmer confirm that" & vbCrLf & _
        "(1) MicrosoftExcel 16.0 Object Library" & vbCrLf & _
        vbTab & "checked in Project References" & vbCrLf & _
        "(2) " & RosterPath & vbCrLf & _
            "folder is present", , "Activation Error"

    UnlockSpreadsheet
    InstantiateWorkbook = False
    Exit Function

Sub UnlockSpreadsheet()
    On Error Resume Next
    exwb.Close
    Set exwb = Nothing
End Sub