BPC Excel VBA Code to change Current View ios broken, please help

Question

Hi,
I inherited a macro set to cycle through a list of paramenters, change current view accordingly and print the reports. It was working fine in the prior version of BPC, but stopped when we transferred to BPC 7. The code stops when it's trying to make the Current View visible (in the prior version it was an option, in BPC 7 it's always visible). I also think it does not recognize the "OutlookSoft CPM CurrentView" name. I am not a VBA expert. Woudl appreciate any ideas. The place where the code stops is in bold below.
Thank you!
Sub cmdRun_Click()
Dim strColHead As String, strRowHead As String, strDataRange As String
Dim I As Integer, j As Integer, k As Integer
Dim blnOldStatusBar As Boolean, blnOSBarStartVis As Integer, intOSBarStartPosit As Integer
Dim strPL As String, strTabName As String
Dim intTotalPrintingPages As Integer, intPageCountStart As Integer
Dim dteStartTime As Date, dteEndTime As Date, intRunTimeSeconds As Integer, intRunTimeMinutes As Integer
'Record the start time
dteStartTime = Time
'Get the current status bar setting.  Then, make sure the bar is visible
blnOldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
If Test_Ranges = False Then
    Exit Sub
End If
strColHead = refColHeader.Value
strRowHead = refRowHeader.Value
strDataRange = refDataRange.Value
'Find and store the starting position for the OutlookSoft Currentview toolbar
'Then, make the entire OutlookSoft CurrentView toolbar visible
Application.StatusBar = "Storing CurrentView toolbar data"
blnOSBarStartVis = Application.CommandBars("OutlookSoft CPM CurrentView").Visible
Application.CommandBars("OutlookSoft CPM CurrentView").Visible = True
intOSBarStartPosit = Application.CommandBars("OutlookSoft CPM CurrentView").Position
Application.CommandBars("OutlookSoft CPM CurrentView").Position = 4
'Hide the form
frmParameters.Hide
'Cycle through the combinations of P&Ls and tab names
For I = 1 To Range(strRowHead).Rows.Count
    'Change the currentview P&L
    Application.StatusBar = "Changing the CurrentView..."
    strPL = Range(strRowHead).Rows(I).Columns(1).Value
    ChangeCurrentView "P_L", strPL
    'Refresh and Expand
    'Application.Calculation = xlCalculationManual                      'temporarily turn off Excel's automatic calculation
    Application.Run "MNU_eTOOLS_EXPAND"
    'Application.Calculation = xlCalculationAutomatic                   'turn the automatic calculation back on
    Application.Run "MNU_eTOOLS_REFRESH"
    Application.CalculateFullRebuild
    'Get the total number of pages to be printed for the selected P&L
    Application.StatusBar = "Counting pages to be printed for this P&L..."
    intTotalPrintingPages = 0
    For j = 1 To Range(strColHead).Columns.Count
        If Range(strDataRange).Rows(I).Columns(j).Value = "x" Then
            strTabName = Range(strColHead).Rows(1).Columns(j).Value
            For Each pb In Sheets(strTabName).HPageBreaks
                If pb.Extent = xlPageBreakPartial Then
                    intTotalPrintingPages = intTotalPrintingPages + 1  'add one sheet to the count for each page break
                End If
            Next
            intTotalPrintingPages = intTotalPrintingPages + 1          'each sheet will print 1 more page than there are page breaks
        End If
    Next j
    Application.StatusBar = intTotalPrintingPages & " total pages for " & strRowHead
    'Cycle through each of the tabs (only if it is marked with an 'x')
    intPageStartCount = 0
    For j = 1 To Range(strColHead).Columns.Count
        If Range(strDataRange).Rows(I).Columns(j).Value = "x" Then
            strTabName = Range(strColHead).Rows(1).Columns(j).Value
            'Set the footer
            Application.StatusBar = "Building the page footer for " & strTabName & "..."
            Sheets(strTabName).PageSetup.CenterFooter = " Page &P+" & intPageStartCount & " of " & intTotalPrintingPages
            'Print the current sheet
            Application.StatusBar = "Printing " & strTabName & " for " & strRowHead & "..."
            Sheets(strTabName).PrintOut Copies:=1, Collate:=True
            'Bump up the start value for page numbering
            For Each pb In Sheets(strTabName).HPageBreaks
                If pb.Extent = xlPageBreakPartial Then
                    intPageStartCount = intPageStartCount + 1          'add one sheet to the count for each page break
                End If
            Next
            intPageStartCount = intPageStartCount + 1                  'each sheet will print 1 more page than there are page breaks
        End If
    Next j
Next I
'Put the OutlookSoft CurrentView toolbar back to where the user had it.
Application.StatusBar = "Resetting the CurrentView toolbar"
Application.CommandBars("OutlookSoft CPM CurrentView").Position = intOSBarStartPosit
Application.CommandBars("OutlookSoft CPM CurrentView").Visible = blnOSBarStartVis
'Alert the user that the process is complete
Application.StatusBar = "Processing complete...notifing user"
dteEndTime = Time
intRunTimeSeconds = DateDiff("s", dteStartTime, dteEndTime)
intRunTimeMinutes = intRunTimeSeconds \ 60
If intRunTimeMinutes > 0 Then
    intRunTimeSeconds = intRunTimeSeconds Mod (intRunTimeMinutes * 60)
End If
For k = 1 To 3
    Beep
Next k
Application.DisplayStatusBar = blnOldStatusBar
MsgBox "The report generation process is complete." & Chr(10) & _
    "Total retreival and printing time:" & Chr(10) & _
    "    Minutes: " & intRunTimeMinutes & Chr(10) & _
    "    Seconds: " & intRunTimeSeconds, vbOKOnly + vbInformation, "Process Complete"
End Sub

Answer 1

Sub cmdRun_Click()
Dim strColHead As String, strRowHead As String, strDataRange As String
Dim I As Integer, j As Integer, k As Integer
Dim blnOldStatusBar As Boolean, blnOSBarStartVis As Integer, intOSBarStartPosit As Integer
Dim strPL As String, strTabName As String
Dim intTotalPrintingPages As Integer, intPageCountStart As Integer
Dim dteStartTime As Date, dteEndTime As Date, intRunTimeSeconds As Integer, intRunTimeMinutes As Integer 'Record the start time
For I = 1 To Range(strRowHead).Rows.Count 'Change the currentview P&L
    Application.StatusBar = "Changing the CurrentView..."
    strPL = Range(strRowHead).Rows(I).Columns(1).Value
    ChangeCurrentView "P_L", strPL 'Refresh and Expand
    'Application.Calculation = xlCalculationManual 'temporarily turn off Excel's automatic calculation
    Application.Run "MNU_eTOOLS_EXPAND"
    'Application.Calculation = xlCalculationAutomatic 'turn the automatic calculation back on
    Application.Run "MNU_eTOOLS_REFRESH"
    Application.CalculateFullRebuild 'Get the total number of pages to be printed for the selected P&L
    Application.StatusBar = "Counting pages to be printed for this P&L..."
    intTotalPrintingPages = 0
    For j = 1 To Range(strColHead).Columns.Count
        If Range(strDataRange).Rows(I).Columns(j).Value = "x" Then strTabName = Range(strColHead).Rows(1).Columns(j).Value
            For Each pb In Sheets(strTabName).HPageBreaks
                If pb.Extent = xlPageBreakPartial Then intTotalPrintingPages = intTotalPrintingPages + 1 'add one sheet to the count for each page break
                End If
            Next
        intTotalPrintingPages = intTotalPrintingPages + 1 'each sheet will print 1 more page than there are page breaks
        End If
    Next j
    Application.StatusBar = intTotalPrintingPages & " total pages for " & strRowHead 'Cycle through each of the tabs (only if it is marked with an 'x')
    intPageStartCount = 0
-> Displays the line as programming code is not workin!
Edited by: Sam Patel on Aug 27, 2009 12:45 PM
Edited by: Sam Patel on Aug 27, 2009 12:45 PM
Edited by: Sam Patel on Aug 27, 2009 12:46 PM
Edited by: Sam Patel on Aug 27, 2009 12:47 PM
Edited by: Sam Patel on Aug 27, 2009 12:47 PM
Edited by: Sam Patel on Aug 27, 2009 12:49 PM
Edited by: Sam Patel on Aug 27, 2009 12:49 PM
Edited by: Sam Patel on Aug 27, 2009 12:50 PM