Run-time error '9' Subscript out of range

I Experts,

I'm new to Macro and VB.

I'm using a third party application created in EXCEL file where it is pretty much created based on Macro.

I keep getting the below error message when I try to run the updates or access certain features of the EXCEL file.

I have attached the codes below hoping you can find and correct this persisting error.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
    Call ResetExcel

End Sub

Private Sub Workbook_Open()
   
    Call RemoveSysMenu
   
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .OnKey "{ENTER}", "EnterCode"
        .OnKey "~", "EnterCode"
        .OnKey "^{a}", "ShortcutPage"
        .OnKey "^{b}", "SetupResetS"
        .OnKey "^{d}", "LoadDEC"
        .OnKey "^{f}", "LoadFIR"
        .OnKey "^{i}", "LoadCOM"
        .OnKey "^{o}", "LoadREP"
        .OnKey "^{p}", "PrintFormShow"
        .OnKey "^{r}", "ScreenSetup"
        .OnKey "^{t}", "LoadPL3"
        .OnKey "^{z}", "DisplayZoomForm"
        .OnKey "^{y}", "SaveDecisions"
        .OnKey "^{x}", "ExitBSG"
    End With
   
    Dim LastProg As String
    LastProg = ThisWorkbook.Worksheets("Status").Range("LastProg").Text

    'Transfer variables from LastProg
    Workbooks("BSG.xls").Worksheets("Status").Range("BSGPATH").Value = Workbooks(LastProg).Worksheets("Data").Range("BSGPATH").Text
    Workbooks("BSG.xls").Worksheets("Status").Range("UName").Value = Workbooks(LastProg).Worksheets("Data").Range("UName").Text
    Workbooks("BSG.xls").Worksheets("Status").Range("PWord").Value = Workbooks(LastProg).Worksheets("Data").Range("PWNum").Text
    Workbooks("BSG.xls").Worksheets("Status").Range("DownloadMethod").Value = Workbooks(LastProg).Worksheets("Data").Range("DownloadMethod").Value
    If LastProg = "OVR.xls" Then
        Workbooks("BSG.xls").Worksheets("Status").Range("SelectedProg").Value = Workbooks(LastProg).Worksheets("Data").Range("SelectedProg").Text
    End If
   
    'Set LoggedIn value in LastProg to 0 so that logout script won't run when LastProg is closed
    Workbooks(LastProg).Worksheets("Data").Range("LoggedIn").Value = 0
       
    Call LoadData
   
    End
   
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True
End Sub