1

'KWH SALES 1266 - 1322
Dim KwhSalesSpugArray(1 To 10) As Integer
Dim KwhSalesSfrArray(1 To 10) As Integer
Dim KwhSalesSpugNumRows, KwhSalesSfrNumRows As Integer
Dim num
Dim progressNum As Integer
Dim namedRangeCount As Integer
Dim percentage
Dim rangeContainer As Range

'HEADER3: SPUG AND SFR
Dim SpugA(1 To 10) As Integer
Dim SpugB(1 To 10) As Integer
Dim SpugC(1 To 10) As Integer
Dim SpugD(1 To 10) As Integer
Dim SpugE(1 To 10) As Integer

Dim SfrA(1 To 10) As Integer
Dim SfrB(1 To 10) As Integer
Dim SfrC(1 To 10) As Integer
Dim SfrD(1 To 10) As Integer
Dim SfrE(1 To 10) As Integer
Dim aNumRows, bNumRows, cNumRows, dNumRows, eNumRows As Integer

'HEADER3: MAIN
Dim a, b, c, d, e 'containers for combobox values


Private Sub CommandButton3_Click()
    Test3

End Sub


Private Sub UserForm_Initialize()
    Me.Height = 384
    progressNum = 0

    ''modified from 5556 to 5496 - 5/3/2019
   namedRangeCount = 5568

    '<START: KWH SALES>
       KwhSalesSpugNumRows = 7
        KwhSalesSfrNumRows = 7

        For i = 1 To 10
            With Me.Controls("SPUG_" + CStr(i))
                For x = 0 To KwhSalesSpugNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_" + CStr(i)).Width = 24
            Me.Controls("SPUG_" + CStr(i)).Text = 0
            Me.Controls("SPUG_" + CStr(i)).ColumnWidths = 20
            Me.Controls("SPUG_" + CStr(i)).Style = 2
        Next i


        For i = 1 To 10
            With Me.Controls("SFR_" + CStr(i))
                For x = 0 To KwhSalesSfrNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_" + CStr(i)).Width = 24
            Me.Controls("SFR_" + CStr(i)).Text = 0
            Me.Controls("SFR_" + CStr(i)).ColumnWidths = 20
            Me.Controls("SFR_" + CStr(i)).Style = 2
        Next i
    '<END: KWH SALES>

    '<START: HEADER3 SPUG/SFR>?
       'ENERGY INPUT SUB-TRANSMISSION -MAIN
       aNumRows = 50
        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR
       bNumRows = 20
        'ENERGY OUTPUT SUB-TRANSMISSION
       cNumRows = 50
        'SUB-TRANSMISSION LOAD/CUSTOMERS
       dNumRows = 20
        'ENERGY INPUT DISTRIBUTION FEEDER
       eNumRows = 20

       'SPUG COMBOBOXES
       'ENERGY INPUT SUB-TRANSMISSION -MAIN
       'SPUG_A_(1-10)
       For i = 1 To 10
            With Me.Controls("SPUG_A_" + CStr(i))
                For x = 0 To aNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_A_" + CStr(i)).Text = 0
            Me.Controls("SPUG_A_" + CStr(i)).Style = 2
        Next i

        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR
       'SPUG_B_(1-10)
       For i = 1 To 10
            With Me.Controls("SPUG_B_" + CStr(i))
                For x = 0 To bNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_B_" + CStr(i)).Text = 0
            Me.Controls("SPUG_B_" + CStr(i)).Style = 2
        Next i
        'ENERGY OUTPUT SUB-TRANSMISSION
       'SPUG_C_(1-10)
       For i = 1 To 10
            With Me.Controls("SPUG_C_" + CStr(i))
                For x = 0 To cNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_C_" + CStr(i)).Text = 0
            Me.Controls("SPUG_C_" + CStr(i)).Style = 2
        Next i
        'SUB-TRANSMISSION LOAD/CUSTOMERS
       'SPUG_D_(1-10)
       For i = 1 To 10
            With Me.Controls("SPUG_D_" + CStr(i))
                For x = 0 To dNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_D_" + CStr(i)).Text = 0
            Me.Controls("SPUG_D_" + CStr(i)).Style = 2
        Next i
        'ENERGY INPUT DISTRIBUTION FEEDER
       'SPUG_E_(1-10)
       For i = 1 To 10
            With Me.Controls("SPUG_E_" + CStr(i))
                For x = 0 To eNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_E_" + CStr(i)).Text = 0
            Me.Controls("SPUG_E_" + CStr(i)).Style = 2
        Next i

       'SFR COMBOBOXES
       'ENERGY INPUT SUB-TRANSMISSION -MAIN
       'SFR_A_(1-10)
       For i = 1 To 10
            With Me.Controls("SFR_A_" + CStr(i))
                For x = 0 To aNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_A_" + CStr(i)).Text = 0
            Me.Controls("SFR_A_" + CStr(i)).Style = 2
        Next i
        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR
       'SFR_B_(1-10)
       For i = 1 To 10
            With Me.Controls("SFR_B_" + CStr(i))
                For x = 0 To bNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_B_" + CStr(i)).Text = 0
            Me.Controls("SFR_B_" + CStr(i)).Style = 2
        Next i
        'ENERGY OUTPUT SUB-TRANSMISSION
       'SFR_C_(1-10)
       For i = 1 To 10
            With Me.Controls("SFR_C_" + CStr(i))
                For x = 0 To cNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_C_" + CStr(i)).Text = 0
            Me.Controls("SFR_C_" + CStr(i)).Style = 2
        Next i
        'SUB-TRANSMISSION LOAD/CUSTOMERS
       'SFR_D_(1-10)
       For i = 1 To 10
            With Me.Controls("SFR_D_" + CStr(i))
                For x = 0 To dNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_D_" + CStr(i)).Text = 0
            Me.Controls("SFR_D_" + CStr(i)).Style = 2
        Next i
        'ENERGY INPUT DISTRIBUTION FEEDER
       'SFR_E_(1-10)
       For i = 1 To 10
            With Me.Controls("SFR_E_" + CStr(i))
                For x = 0 To eNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_E_" + CStr(i)).Text = 0
            Me.Controls("SFR_E_" + CStr(i)).Style = 2
        Next i

    '<END: HEADER3 SPUG/SFR>?
   '<START: HEADER3 MAIN>
   With Main_A 'ENERGY INPUT SUB-TRANSMISSION (MAIN)(Metering)
       For i = 0 To 200
            .AddItem i
        Next i
    End With
    Main_A.Text = 0

    With Main_B 'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR (Metering)
       For i = 0 To 20
            .AddItem i
        Next i
    End With
    Main_B.Text = 0

    With Main_C 'ENERGY OUTPUT SUB-TRANSMISSION (Feeder Metering)
       For i = 0 To 800
            .AddItem i
        Next i
    End With
    Main_C.Text = 0

    With Main_D 'SUB-TRANSMISSION LOAD/CUSTOMERS (Metering)
       For i = 0 To 20
            .AddItem i
        Next i
    End With
    Main_D.Text = 0

    With Main_E 'ENERGY INPUT DISTRIBUTION FEEDER (Metering)
       For i = 0 To 20
            .AddItem i
        Next i
    End With
    Main_E.Text = 0

    '<END: HEADER3 MAIN>
   '<START: HEADER1 CUSTOMER CLASS>
   With CCBox 'ENERGY INPUT DISTRIBUTION FEEDER (Metering)
       For i = 0 To 5
            .AddItem i
        Next i
        .Style = 2
        .Text = 0
    End With
    With MRBox 'ENERGY INPUT DISTRIBUTION FEEDER (Metering)
       For i = 0 To 7
            .AddItem i
        Next i
        .Style = 2
        .Text = 0
    End With

    With WDBox 'ENERGY INPUT DISTRIBUTION FEEDER (Metering)
       For i = 0 To 7
            .AddItem i
        Next i
        .Style = 2
        .Text = 0
    End With

    '<END: HEADER1 CUSTOMER CLASS>

    '<START: OLD>
       With SPUG 'SPUG
           For i = 0 To 10
                .AddItem i
            Next i
            .Style = 2
            .Text = 0
         End With
         With SFR 'SFR
           For i = 0 To 10
                .AddItem i
            Next i
            .Style = 2
            .Text = 0
         End With
         With DOGF 'DOGF
           For i = 0 To 10
                .AddItem i
            Next i
            .Style = 2
            .Text = 0
         End With
         With IPP 'IPP
           For i = 0 To 30
                .AddItem i
            Next i
            .Style = 2
            .Text = 0
         End With
         With NGCP 'IPP
           For i = 0 To 10
                .AddItem i
            Next i
            .Style = 2
            .Text = 0
         End With
    '<END: OLD>
End Sub
Private Sub CommandButton2_Click() 'expose all
   Me.Height = 420
    progressNum = 0
    FrontProgress.Width = 0


    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.DisplayStatusBar = True
    Application.StatusBar = "PLEASE WAIT A MOMENT"
    '<START: KWH SALES>

    'SPUG
       For EntryNumber = 1 To 10
            For NumRows = 1 To 7
                'kwh sales
               progressIndicator
                    Range("SLD_KWHSales_SPUG_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = False
                'no. of cust.
               progressIndicator
                    Range("SLD_NoOfCustClass_SPUG_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = False
                'actual implemented rates
               progressIndicator
                    Range("AIR_SPUG_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = False
            Next NumRows
        Next EntryNumber
        'SFR
       For EntryNumber = 1 To 10
            For NumRows = 1 To 7
                'kwh sales
               progressIndicator
                    Range("SLD_KWHSales_SforReS_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = False
                'no. of cust.
               progressIndicator
                    Range("SLD_NoOfCustClass_SforReS_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = False
                'actual implemented rates
               progressIndicator
                    Range("AIR_SforReS_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = False
            Next NumRows
        Next EntryNumber
    '<END: KWH SALES>
   '<START: HEADER3 SPUG N SFR>?

    'ENERGY INPUT SUB-TRANSMISSION (MAIN)(Metering)
       For i = 1 To aNumRows ' 1000
           For x = 1 To 10 ' number of spugs and sfr
               progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
            Next x
        Next i
        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR (Metering)
       For i = 1 To bNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
            Next x
        Next i
        'ENERGY OUTPUT SUB-TRANSMISSION (Feeder Metering)
       For i = 1 To cNumRows ' 2000
           For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SPUG_" + TwoDigits(x) + "_FeederMetering_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SforReS_" + TwoDigits(x) + "_FeederMetering_" + TwoDigits(i)).Rows.Hidden = False
            Next x
        Next i
        'SUB-TRANSMISSION LOAD/CUSTOMERS (Metering)
       For i = 1 To dNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_LoadCust_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_LoadCust_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
            Next x
        Next i
        'ENERGY INPUT DISTRIBUTION FEEDER (Metering)
       For i = 1 To eNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
            Next x
        Next i
    '<END: HEADER3 SPUG N SFR>?
   '<START: HEADER3 MAIN>


    'ENERGY INPUT SUB-TRANSMISSION (MAIN)(Metering)
       For i = 1 To 200
        progressIndicator
            Range("SLD_EnergyInputSubTrans_DeliveredTransSys_MAIN_Metering_" + ThreeDigits(i)).Rows.Hidden = False
        Next i
        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR (Metering)
       For i = 1 To 20
            progressIndicator
                Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_MAIN_Metering_" + TwoDigits(i)).Rows.Hidden = False
        Next i
        'ENERGY OUTPUT SUB-TRANSMISSION (Feeder Metering)
       For i = 1 To 800
            progressIndicator
                Range("SLD_EnergyOutputSubTrans_ExportedDistribution_MAIN_FeederMetering_" + ThreeDigits(i)).Rows.Hidden = False
        Next i
        'SUB-TRANSMISSION LOAD/CUSTOMERS (Metering)
       For i = 1 To 50
            progressIndicator
                Range("SLD_EnergyOutputSubTrans_LoadCust_MAIN_Metering_" + TwoDigits(i)).Rows.Hidden = False
        Next i
        'ENERGY INPUT DISTRIBUTION FEEDER (Metering)
       For i = 1 To 20
            progressIndicator
                Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_MAIN_Metering_" + TwoDigits(i)).Rows.Hidden = False
        Next i

    '<END: HEADER3 MAIN>
   '<START: HEADER1>
       'CUSTOMER CLASS
       For i = 1 To 5
            progressIndicator
                Range("SLD_KWHSalesCustClass_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLD_NoOfCustClass_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLD_OTCA_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLD_OSLA_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("AIR_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_OCTA_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_Adjustment_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CustType_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CustTypeBill_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLR_perCustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLR_CustTypeBill_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("OU_TransRev_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("OU_SLRev_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("OU_OrigPriceAdj_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("MonAppAdj_OTCA_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("MonAppAdj_OSLA_BeginBalance_CustClass_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CP_KWHSalesCustClass_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CPRatio_KWHSalesCustClass_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_Ratio_KWHSalesCustClass_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_AllocTotalEnergyInput_KWHSalesCustClass_Main_0" + CStr(i)).Rows.Hidden = False
        Next i
        'MIXED RATES
       For i = 1 To 7
            progressIndicator
                Range("SLD_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLD_NoOfCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLD_OSLA_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLD_OTCA_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("AIR_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_OTCA_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_Adjustment_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CustType_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CustTypeBill_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_forDUs_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLR_perCustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLR_CustTypeBill_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("OU_TransRev_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("OU_SLRev_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("OU_OrigPriceAdj_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("MonAppAdj_OTCA_BeginBalance_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("MonAppAdj_OSLA_BeginBalance_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CTRate_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CP_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CPRatio_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_Ratio_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_AllocTotalEnergyInput_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = False
        Next i
        'WITH DEMAND
       For i = 1 To 7
            progressIndicator
                Range("SLD_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLD_NoOfCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLD_SLD_OTCA_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLD_OSLA_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("AIR_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_OTCA_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_Adjustment_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CustType_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CustTypeBill_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLR_perCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("SLR_CustTypeBill_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("OU_TransRev_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("OU_SLRev_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("OU_OrigPriceAdj_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("MonAppAdj_OTCA_BeginBalance_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("MonAppAdj_OSLA_BeginBalance_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CP_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_CPRatio_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_Ratio_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
            progressIndicator
                Range("TR_AllocTotalEnergyInput_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = False
        Next i

    '<END: HEADER1>

    '<START: OLD>

            For i = 1 To 10
                'SPUG
               progressIndicator
                    Range("GD_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("GD_TOTAL_AMOUNT_DUE_NPC_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("GD_TOTAL_ENERGY_NPC_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_SPUG_OGA_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_SPUG_OSLA_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_SPUG_OLRA_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_SPUG_PCR_" + TwoDigits(i)).Rows.Hidden = False
                'progressIndicator
                    'Range("SLD_SPUG_ENERGY_IO_SUBTRANS_" + TwoDigits(i)).Rows.Hidden = False
                'progressIndicator
                  'Range("SLD_SPUG_KWH_SALES_" + TwoDigits(i)).Rows.Hidden = False
                'progressIndicator
                  ' Range("SLD_SPUG_NO_OF_CUST_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_SPUG_1YR_SYSTEMLOSS_DTR_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("LD_SPUG_LIFELINE_DATA_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SrCD_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                'progressIndicator
                 ' Range("AIR_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("AIL_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("AIS_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("GR_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("GR_SPUG_Sum_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLR_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("LD_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SrCS_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("OUS_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("MonAppAdj_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                'DOGF
               progressIndicator
                    Range("GD_DUOGF_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("GD_TOTAL_ENERGY_DUOGF_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("GD_TOTAL_AMOUNT_DUE_DUOGF_" + TwoDigits(i)).Rows.Hidden = False
                'SFR
               progressIndicator
                    Range("GD_TOTAL_ENERGY_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("GD_TOTAL_AMOUNT_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("GD_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_SforReS_OGA_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_SforReS_OSLA_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_SforReS_OLRA_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_SforReS_PCR_" + TwoDigits(i)).Rows.Hidden = False
                'progressIndicator
                    'Range("SLD_SforReS_ENERGY_IO_SUBTRANS_" + TwoDigits(i)).Rows.Hidden = False
                'progressIndicator
                  'Range("SLD_SforReS_KWH_SALES_" + TwoDigits(i)).Rows.Hidden = False
              ' progressIndicator
                 'Range("SLD_SforReS_Customer_Class_" + TwoDigits(i)).Rows.Hidden = False
               progressIndicator
                    Range("SLD_SforReS_1YR_SYSTEMLOSS_DTR_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("LD_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SrCD_SforReS_" + TwoDigits(i)).Rows.Hidden = False
               'progressIndicator
                 ' Range("AIR_SforReS_" + TwoDigits(i)).Rows.Hidden = False
               progressIndicator
                    Range("AIL_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("AIS_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("GR_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("GR_SforReS_Sum_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLR_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("LD2_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SrCS_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("OUS_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("MonAppAdj_SforReS_" + TwoDigits(i)).Rows.Hidden = False
                'NGCP
               progressIndicator
                    Range("NGCP_Gen_" + TwoDigits(i)).Rows.Hidden = False
            Next i
            For i = 1 To 30
                'IPP
               progressIndicator
                    Range("GD_IPP_" + TwoDigits(i)).Rows.Hidden = False
            Next i

    '<END: OLD>

    'added 5/8/2019
                Range(Range("SLD_EnergyInputSubTrans_DeliveredTransSys_MAIN_Metering_001"), Range("SLD_EnergyInputSubTrans_DeliveredTransSys_MAIN_Metering_200")).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_MAIN_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_MAIN_Metering_20")).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 5, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyOutputSubTrans_ExportedDistribution_MAIN_FeederMetering_001"), Range("SLD_EnergyOutputSubTrans_ExportedDistribution_MAIN_FeederMetering_800")).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyOutputSubTrans_LoadCust_MAIN_Metering_01"), Range("SLD_EnergyOutputSubTrans_LoadCust_MAIN_Metering_50")).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 3, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_MAIN_Metering_01"), Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_MAIN_Metering_20")).Select
                Selection.Offset(-4, 0).Resize(Selection.Rows.Count + 8, _
                Selection.Columns.Count).Rows.Hidden = False

            For EntryNumber = 1 To 10
                Range(Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(aNumRows))).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(bNumRows))).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 5, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SPUG_" + TwoDigits(EntryNumber) + "_FeederMetering_01"), Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SPUG_" + TwoDigits(EntryNumber) + "_FeederMetering_" + CStr(cNumRows))).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyOutputSubTrans_LoadCust_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyOutputSubTrans_LoadCust_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(dNumRows))).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 3, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(eNumRows))).Select
                Selection.Offset(-4, 0).Resize(Selection.Rows.Count + 8, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SforReS_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SforReS_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(aNumRows))).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SforReS_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SforReS_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(bNumRows))).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 5, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SforReS_" + TwoDigits(EntryNumber) + "_FeederMetering_01"), Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SforReS_" + TwoDigits(EntryNumber) + "_FeederMetering_" + CStr(cNumRows))).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyOutputSubTrans_LoadCust_SforReS_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyOutputSubTrans_LoadCust_SforReS_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(dNumRows))).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 3, _
                Selection.Columns.Count).Rows.Hidden = False
                Range(Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SforReS_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SforReS_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(eNumRows))).Select
                Selection.Offset(-4, 0).Resize(Selection.Rows.Count + 8, _
                Selection.Columns.Count).Rows.Hidden = False
            Next EntryNumber

   Application.StatusBar = ""
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    'Me.Height = 384

    'START - UPDATE ---------------------
   If namedRangeCount = progressNum Then
        MsgBox "DONE"
    ElseIf namedRangeCount > progressNum Then
        MsgBox "kulang! name ranges count (" + CStr(namedRangeCount) + " rows) is greater than reset name ranges count (" + CStr(progressNum) + " rows)"
    Else
        MsgBox "sobra! name ranges count (" + CStr(namedRangeCount) + " rows) is less than reset name ranges count (" + CStr(progressNum) + " rows)"
    End If
    'END - UPDATE -----------------------

End Sub

Private Sub CommandButton1_Click()
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False
    Me.Height = 420
    progressNum = 0
    FrontProgress.Width = 0

    '<START: KWH SALES>
       'START: check empty comboboxes
           'SPUG
           For i = 1 To 10

                'Note: check combobox name: "SPUG_" + CStr(N)
               If Me.Controls("SPUG_" + CStr(i)).Value <> "" Then
                    KwhSalesSpugArray(i) = Me.Controls("SPUG_" + CStr(i)).Value
                Else
                    KwhSalesSpugArray(i) = 0
                End If
            Next i
            'SFR
           For i = 1 To 10
                'Note: check combobox name: "SFR_" + CStr(N)
               If Me.Controls("SFR_" + CStr(i)).Value <> "" Then
                    KwhSalesSfrArray(i) = Me.Controls("SFR_" + CStr(i)).Value
                Else
                    KwhSalesSfrArray(i) = 0
                End If
            Next i
        'END

    'SPUG

        For EntryNumber = 1 To 10
            num = KwhSalesSpugArray(EntryNumber)
            If num <= KwhSalesSpugNumRows Then

                If num = 0 Then
                ''write parents here

                  Range("SLD_SPUG_KWH_SALES_" + TwoDigits(EntryNumber)).Rows.Hidden = True
                  Range("SLD_SPUG_NO_OF_CUST_" + TwoDigits(EntryNumber)).Rows.Hidden = True
                  Range("AIR_SPUG_" + TwoDigits(EntryNumber)).Rows.Hidden = True

                'MsgBox CStr(EntryNumber) + "= 0"

                End If

                For NumRows = 1 To KwhSalesSpugNumRows
                        'kwh sales
                       progressIndicator
                        Range("SLD_KWHSales_SPUG_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = IIf(NumRows <= KwhSalesSpugArray(EntryNumber), False, True)
                        'no. of cust.
                       progressIndicator
                        'SLD_SPUG_S4ReS.Caption = CStr(percentage) + "% > " + "SLD_NoOfCustClass_SPUG_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)
                       Range("SLD_NoOfCustClass_SPUG_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = IIf(NumRows <= KwhSalesSpugArray(EntryNumber), False, True)
                        'actual implemented rates
                       progressIndicator
                        'SLD_SPUG_S4ReS.Caption = CStr(percentage) + "% > " + "AIR_SPUG_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)
                       Range("AIR_SPUG_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = IIf(NumRows <= KwhSalesSpugArray(EntryNumber), False, True)
                Next NumRows
            Else
                MsgBox "Invalid number of rows in SPUG " + CStr(EntryNumber)
            End If
        Next EntryNumber
        'SFR
       For EntryNumber = 1 To 10
            num = KwhSalesSfrArray(EntryNumber)

                If num = 0 Then
                ''write parents here

                  Range("SLD_SforReS_KWH_SALES_" + TwoDigits(EntryNumber)).Rows.Hidden = True
                  Range("SLD_SforReS_Customer_Class_" + TwoDigits(EntryNumber)).Rows.Hidden = True
                  Range("AIR_SforReS_" + TwoDigits(EntryNumber)).Rows.Hidden = True

                    ''MsgBox CStr(EntryNumber) + "= 0"

                End If

            If num <= KwhSalesSfrNumRows Then
                For NumRows = 1 To KwhSalesSfrNumRows

                        'kwh sales
                       progressIndicator
                        'SLD_SPUG_S4ReS.Caption = CStr(percentage) + "% > " + "SLD_KWHSales_SforReS_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)
                       Range("SLD_KWHSales_SforReS_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = IIf(NumRows <= KwhSalesSfrArray(EntryNumber), False, True)
                        'no. of cust.
                       progressIndicator
                        'SLD_SPUG_S4ReS.Caption = CStr(percentage) + "% > " + "SLD_NoOfCustClass_SforReS_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)
                       Range("SLD_NoOfCustClass_SforReS_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = IIf(NumRows <= KwhSalesSfrArray(EntryNumber), False, True)
                        'actual implemented rates
                       progressIndicator
                        'SLD_SPUG_S4ReS.Caption = CStr(percentage) + "% > " + "AIR_SforReS_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)
                       Range("AIR_SforReS_" + CheckEntryNumber(EntryNumber) + CStr(EntryNumber) + "_CustClass_0" + CStr(NumRows)).Rows.Hidden = IIf(NumRows <= KwhSalesSfrArray(EntryNumber), False, True)
                Next NumRows
            Else
                MsgBox "Invalid number of rows in Sale For Resale " + CStr(EntryNumber)
            End If
        Next EntryNumber
    '<END: KWH SALES>
   'SPUG and SFR ARRAYS
        For i = 1 To 10
            SpugA(i) = Me.Controls("SPUG_A_" + CStr(i)).Value
            SpugB(i) = Me.Controls("SPUG_B_" + CStr(i)).Value
            SpugC(i) = Me.Controls("SPUG_C_" + CStr(i)).Value
            SpugD(i) = Me.Controls("SPUG_D_" + CStr(i)).Value
            SpugE(i) = Me.Controls("SPUG_E_" + CStr(i)).Value

            SfrA(i) = Me.Controls("SFR_A_" + CStr(i)).Value
            SfrB(i) = Me.Controls("SFR_B_" + CStr(i)).Value
            SfrC(i) = Me.Controls("SFR_C_" + CStr(i)).Value
            SfrD(i) = Me.Controls("SFR_D_" + CStr(i)).Value
            SfrE(i) = Me.Controls("SFR_E_" + CStr(i)).Value

        Next i
    '<START: HEADER3 SPUG N SFR>?
   'ENERGY INPUT SUB-TRANSMISSION (MAIN)(Metering)
        For i = 1 To aNumRows ' 1000
           For x = 1 To 10 ' number of spugs and sfr
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SpugA(x), False, True)
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SfrA(x), False, True)
            Next x
        Next i
        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR (Metering)
       For i = 1 To bNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SpugB(x), False, True)
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SfrB(x), False, True)
            Next x
        Next i
        'ENERGY OUTPUT SUB-TRANSMISSION (Feeder Metering)
       For i = 1 To cNumRows ' 2000
           For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SPUG_" + TwoDigits(x) + "_FeederMetering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SpugC(x), False, True)
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SforReS_" + TwoDigits(x) + "_FeederMetering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SfrC(x), False, True)
            Next x
        Next i
        'SUB-TRANSMISSION LOAD/CUSTOMERS (Metering)
       For i = 1 To dNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_LoadCust_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SpugD(x), False, True)
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_LoadCust_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SfrD(x), False, True)
            Next x
        Next i
        'ENERGY INPUT DISTRIBUTION FEEDER (Metering)
       For i = 1 To eNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SpugE(x), False, True)
                progressIndicator
                    Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SfrE(x), False, True)
            Next x
        Next i
    '<END: HEADER3 SPUG N SFR>?
   '<START: HEADER3 MAIN>

    a = Main_A.Value
    b = Main_B.Value
    c = Main_C.Value
    d = Main_D.Value
    e = Main_E.Value

    'ENERGY INPUT SUB-TRANSMISSION (MAIN)(Metering)
        If a <> "" Then
            'added: 3/8/2019
            If CInt(a) = 0 Then
                skipProgressIndicator 200
                    HideImaginaryParent 0, 1, "A"
            Else
                For i = 1 To 200
                    progressIndicator
                        Range("SLD_EnergyInputSubTrans_DeliveredTransSys_MAIN_Metering_" + ThreeDigits(i)).Rows.Hidden = IIf(i <= CInt(a), False, True)
                Next i
            End If
        End If
        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR (Metering)
        If b <> "" Then
            'added: 5/8/2019
            If CInt(b) = 0 Then
                skipProgressIndicator 20
                    HideImaginaryParent 0, 1, "B"
            Else
                For i = 1 To 20
                    progressIndicator
                        Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_MAIN_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(b), False, True)
                Next i
            End If
        End If
        'ENERGY OUTPUT SUB-TRANSMISSION (Feeder Metering)
        If c <> "" Then
            'added: 5/8/2019
            If CInt(c) = 0 Then
                skipProgressIndicator 800
                    HideImaginaryParent 0, 1, "C"
            Else
                For i = 1 To 800
                    progressIndicator
                        Range("SLD_EnergyOutputSubTrans_ExportedDistribution_MAIN_FeederMetering_" + ThreeDigits(i)).Rows.Hidden = IIf(i <= CInt(c), False, True)
                Next i
            End If
        End If
        'SUB-TRANSMISSION LOAD/CUSTOMERS (Metering)
       If d <> "" Then
            'added: 5/8/2019
            If CInt(d) = 0 Then
                skipProgressIndicator 50
                    HideImaginaryParent 0, 1, "D"
            Else
                For i = 1 To 50
                    progressIndicator
                        Range("SLD_EnergyOutputSubTrans_LoadCust_MAIN_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(d), False, True)
                Next i
            End If
        End If
        'ENERGY INPUT DISTRIBUTION FEEDER (Metering)
       If e <> "" Then
            'added: 5/8/2019
            If CInt(e) = 0 Then
                skipProgressIndicator 20
                    HideImaginaryParent 0, 1, "E"
            Else
                For i = 1 To 20
                    progressIndicator
                        Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_MAIN_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(e), False, True)
                Next i
            End If
        End If

       For i = 1 To 10
            'added 5/8/2019
            If SpugA(i) = 0 Then HideImaginaryParent i, 2, "A"
            If SpugB(i) = 0 Then HideImaginaryParent i, 2, "B"
            If SpugC(i) = 0 Then HideImaginaryParent i, 2, "C"
            If SpugD(i) = 0 Then HideImaginaryParent i, 2, "D"
            If SpugE(i) = 0 Then HideImaginaryParent i, 2, "E"

            If SfrA(i) = 0 Then HideImaginaryParent i, 3, "A"
            If SfrB(i) = 0 Then HideImaginaryParent i, 3, "B"
            If SfrC(i) = 0 Then HideImaginaryParent i, 3, "C"
            If SfrD(i) = 0 Then HideImaginaryParent i, 3, "D"
            If SfrE(i) = 0 Then HideImaginaryParent i, 3, "E"
       Next i

    '<END: HEADER3 MAIN>
   '<START: HEADER1>
       'CUSTOMER CLASS
       For i = 1 To 5
            progressIndicator
                Range("SLD_KWHSalesCustClass_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox.Value), False, True)
            progressIndicator
                Range("SLD_NoOfCustClass_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("SLD_OTCA_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("SLD_OSLA_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("AIR_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("TR_OCTA_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("TR_Adjustment_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("TR_CustType_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("TR_CustTypeBill_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("SLR_perCustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("SLR_CustTypeBill_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("OU_TransRev_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("OU_SLRev_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("OU_OrigPriceAdj_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("MonAppAdj_OTCA_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("MonAppAdj_OSLA_BeginBalance_CustClass_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("TR_CP_KWHSalesCustClass_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("TR_CPRatio_KWHSalesCustClass_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("TR_Ratio_KWHSalesCustClass_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
            progressIndicator
                Range("TR_AllocTotalEnergyInput_KWHSalesCustClass_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(CCBox), False, True)
        Next i
        'MIXED RATES
       For i = 1 To 7
            progressIndicator
                Range("SLD_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("SLD_NoOfCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("SLD_OSLA_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("SLD_OTCA_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("AIR_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_OTCA_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_Adjustment_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_CustType_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_CustTypeBill_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_forDUs_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("SLR_perCustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("SLR_CustTypeBill_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("OU_TransRev_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("OU_SLRev_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("OU_OrigPriceAdj_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("MonAppAdj_OTCA_BeginBalance_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("MonAppAdj_OSLA_BeginBalance_CustClass_withMixRate_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_CTRate_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_CP_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_CPRatio_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_Ratio_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
            progressIndicator
                Range("TR_AllocTotalEnergyInput_KWHSalesCustClass_withMixRate_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(MRBox), False, True)
        Next i
        'WITH DEMAND
        For i = 1 To 7
            progressIndicator
                Range("SLD_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("SLD_NoOfCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("SLD_SLD_OTCA_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("SLD_OSLA_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("AIR_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("TR_OTCA_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("TR_Adjustment_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("TR_CustType_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("TR_CustTypeBill_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("SLR_perCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("SLR_CustTypeBill_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("OU_TransRev_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("OU_SLRev_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("OU_OrigPriceAdj_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("MonAppAdj_OTCA_BeginBalance_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("MonAppAdj_OSLA_BeginBalance_CustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("TR_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("TR_CP_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("TR_CPRatio_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("TR_Ratio_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
            progressIndicator
                Range("TR_AllocTotalEnergyInput_KWHSalesCustClass_withDemandOnly_Main_0" + CStr(i)).Rows.Hidden = IIf(i <= CInt(WDBox), False, True)
         Next i

    '<END: HEADER1>

    '<START: OLD>

            For i = 1 To 10
                'SPUG
               progressIndicator
                    Range("GD_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("GD_TOTAL_AMOUNT_DUE_NPC_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("GD_TOTAL_ENERGY_NPC_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("SLD_SPUG_OGA_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("SLD_SPUG_OSLA_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("SLD_SPUG_OLRA_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("SLD_SPUG_PCR_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                'progressIndicator
                    'Range("SLD_SPUG_ENERGY_IO_SUBTRANS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)

                ''commented-out 5/3/19
               ''NOTE #1: kwh sales, no. of customers, and actual implemented rates have fixed value of 10 SPUG or SForRes so -
               '' these lines of codes are unnecessary [~bugs].
               'progressIndicator
                   'Range("SLD_SPUG_KWH_SALES_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
               'progressIndicator
                   'Range("SLD_SPUG_NO_OF_CUST_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)

                progressIndicator
                    Range("SLD_SPUG_1YR_SYSTEMLOSS_DTR_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("LD_SPUG_LIFELINE_DATA_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("SrCD_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)

                ''commented-out 5/3/19
               '' see NOTE #1
               'progressIndicator
                   'Range("AIR_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)

                progressIndicator
                    Range("AIL_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("AIS_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("GR_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("GR_SPUG_Sum_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("SLR_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("LD_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("SrCS_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("OUS_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                progressIndicator
                    Range("MonAppAdj_SPUG_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SPUG.Value), False, True)
                'DOGF
               progressIndicator
                    Range("GD_DUOGF_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(DOGF.Value), False, True)
                progressIndicator
                    Range("GD_TOTAL_ENERGY_DUOGF_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(DOGF.Value), False, True)
                progressIndicator
                    Range("GD_TOTAL_AMOUNT_DUE_DUOGF_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(DOGF.Value), False, True)
                'SFR
               progressIndicator
                    Range("GD_TOTAL_ENERGY_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("GD_TOTAL_AMOUNT_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("GD_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("SLD_SforReS_OGA_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("SLD_SforReS_OSLA_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("SLD_SforReS_OLRA_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("SLD_SforReS_PCR_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                'progressIndicator
                    'Range("SLD_SforReS_ENERGY_IO_SUBTRANS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)

                ''commented-out 5/3/19
               '' see NOTE #1
               'progressIndicator
                   'Range("SLD_SforReS_KWH_SALES_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
               'progressIndicator
                   'Range("SLD_SforReS_Customer_Class_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)

                progressIndicator
                    Range("SLD_SforReS_1YR_SYSTEMLOSS_DTR_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("LD_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("SrCD_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)

                ''commented-out 5/3/19
               '' see NOTE #1
               'progressIndicator
                   'Range("AIR_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)

                progressIndicator
                    Range("AIL_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("AIS_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("GR_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("GR_SforReS_Sum_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("SLR_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("LD2_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("SrCS_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("OUS_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                progressIndicator
                    Range("MonAppAdj_SforReS_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(SFR.Value), False, True)
                'NGCP
               progressIndicator
                    Range("NGCP_Gen_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(NGCP.Value), False, True)
            Next i
            For i = 1 To 30
                'IPP
               progressIndicator
                    Range("GD_IPP_" + TwoDigits(i)).Rows.Hidden = IIf(i <= CInt(IPP.Value), False, True)
            Next i

    '<END: OLD>
   Application.StatusBar = ""
    CommandButton1.Enabled = True
    CommandButton2.Enabled = True

    'START - UPDATE ---------------------
   If namedRangeCount = progressNum Then
        MsgBox "DONE"
    ElseIf namedRangeCount > progressNum Then
        MsgBox "kulang! name ranges count (" + CStr(namedRangeCount) + " rows) is greater than reset name ranges count (" + CStr(progressNum) + " rows)"
    Else
        MsgBox "sobra! name ranges count (" + CStr(namedRangeCount) + " rows) is less than reset name ranges count (" + CStr(progressNum) + " rows)"
    End If
    'END - UPDATE -----------------------

End Sub
Sub progressIndicator()
    progressNum = progressNum + 1
    percentage = Application.WorksheetFunction.RoundDown(progressNum / namedRangeCount * 100, 0)
    DoEvents
    FrontProgress.Width = percentage / 100 * 945 '945 -> BackProgress' width
   ProgressLabel.Caption = CStr(percentage) + "%: " + CStr(progressNum) + "/" + CStr(namedRangeCount)
End Sub
Sub skipProgressIndicator(ByVal num As Integer)
    progressNum = progressNum + num
    percentage = Application.WorksheetFunction.RoundDown(progressNum / namedRangeCount * 100, 0)
    DoEvents
    FrontProgress.Width = percentage / 100 * 945 '945 -> BackProgress' width
    ProgressLabel.Caption = CStr(percentage) + "%: " + CStr(progressNum) + "/" + CStr(namedRangeCount)
End Sub
Function CheckEntryNumber(ByVal EntryNumber As Integer)
    If EntryNumber = 10 Then
        CheckEntryNumber = ""
    Else
        CheckEntryNumber = "0"
    End If
End Function
Function TwoDigits(ByVal num As Integer)
    If num < 10 Then
        TwoDigits = "0" + CStr(num)
    Else
        TwoDigits = CStr(num)
    End If
End Function

Sub HideImaginaryParent(ByVal EntryNumber As Integer, ByVal TypeN As Integer, ByVal NameRangeType As String)
    ''EntryNumber (e.g.: SPUG1, SFORRES1, CUST1...),

    ''Type:
    '1 = MAIN
    '2 = SPUG
    '3 = SFORRES

    ''NameRangeType: (capitalized)
    'A = ENERGY INPUT SUB-TRANSMISSION (Metering)
    'B = ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR (Metering)
    'C = ENERGY OUTPUT SUB-TRANSMISSION (Feeder Metering)
    'D = SUB-TRANSMISSION LOAD/CUSTOMERS (Metering)
    'E = ENERGY INPUT DISTRIBUTION FEEDER (Metering)

    Select Case TypeN
        Case 1 'MAIN
            If NameRangeType = "A" Then
                Range(Range("SLD_EnergyInputSubTrans_DeliveredTransSys_MAIN_Metering_001"), Range("SLD_EnergyInputSubTrans_DeliveredTransSys_MAIN_Metering_200")).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "B" Then
                Range(Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_MAIN_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_MAIN_Metering_20")).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 5, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "C" Then
                Range(Range("SLD_EnergyOutputSubTrans_ExportedDistribution_MAIN_FeederMetering_001"), Range("SLD_EnergyOutputSubTrans_ExportedDistribution_MAIN_FeederMetering_800")).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "D" Then
                Range(Range("SLD_EnergyOutputSubTrans_LoadCust_MAIN_Metering_01"), Range("SLD_EnergyOutputSubTrans_LoadCust_MAIN_Metering_50")).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 3, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "E" Then
                Range(Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_MAIN_Metering_01"), Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_MAIN_Metering_20")).Select
                Selection.Offset(-4, 0).Resize(Selection.Rows.Count + 8, _
                Selection.Columns.Count).Rows.Hidden = True
            End If
        Case 2 'SPUG
            If NameRangeType = "A" Then
                Range(Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(aNumRows))).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "B" Then
                Range(Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(bNumRows))).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 5, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "C" Then
                Range(Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SPUG_" + TwoDigits(EntryNumber) + "_FeederMetering_01"), Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SPUG_" + TwoDigits(EntryNumber) + "_FeederMetering_" + CStr(cNumRows))).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "D" Then
                Range(Range("SLD_EnergyOutputSubTrans_LoadCust_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyOutputSubTrans_LoadCust_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(dNumRows))).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 3, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "E" Then
                Range(Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(eNumRows))).Select
                Selection.Offset(-4, 0).Resize(Selection.Rows.Count + 8, _
                Selection.Columns.Count).Rows.Hidden = True
            End If
        Case 3 'SFORRES
            If NameRangeType = "A" Then
                Range(Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SforReS_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SforReS_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(aNumRows))).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "B" Then
                Range(Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SforReS_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SforReS_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(bNumRows))).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 5, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "C" Then
                Range(Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SforReS_" + TwoDigits(EntryNumber) + "_FeederMetering_01"), Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SforReS_" + TwoDigits(EntryNumber) + "_FeederMetering_" + CStr(cNumRows))).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "D" Then
                Range(Range("SLD_EnergyOutputSubTrans_LoadCust_SforReS_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyOutputSubTrans_LoadCust_SforReS_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(dNumRows))).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 3, _
                Selection.Columns.Count).Rows.Hidden = True
            ElseIf NameRangeType = "E" Then
                Range(Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SforReS_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SforReS_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(eNumRows))).Select
                Selection.Offset(-4, 0).Resize(Selection.Rows.Count + 8, _
                Selection.Columns.Count).Rows.Hidden = True
            End If
        Case Else
            MsgBox "Oops!, SOMETHING WENT WRONG... :("
    End Select
End Sub
Sub Test3()
    For EntryNumber = 1 To 10
        If EntryNumber Mod 2 = 0 Then
                Range(Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(aNumRows))).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Select

                Range(Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(bNumRows))).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 5, _
                Selection.Columns.Count).Select

                Range(Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SPUG_" + TwoDigits(EntryNumber) + "_FeederMetering_01"), Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SPUG_" + TwoDigits(EntryNumber) + "_FeederMetering_" + CStr(cNumRows))).Select
                Selection.Offset(-2, 0).Resize(Selection.Rows.Count + 4, _
                Selection.Columns.Count).Select

                Range(Range("SLD_EnergyOutputSubTrans_LoadCust_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyOutputSubTrans_LoadCust_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(dNumRows))).Select
                Selection.Offset(-1, 0).Resize(Selection.Rows.Count + 3, _
                Selection.Columns.Count).Select

                Range(Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_01"), Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SPUG_" + TwoDigits(EntryNumber) + "_Metering_" + CStr(eNumRows))).Select
                Selection.Offset(-4, 0).Resize(Selection.Rows.Count + 8, _
                Selection.Columns.Count).Select
        End If
    Next EntryNumber
End Sub

Sub Test()
'SPUG
       For i = 1 To 10
                progressIndicator
                   Range("SLD_SPUG_KWH_SALES_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                   Range("SLD_SPUG_NO_OF_CUST_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                   Range("AIR_SPUG_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                   Range("SLD_SforReS_KWH_SALES_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                   Range("SLD_SforReS_Customer_Class_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                   Range("AIR_SforReS_" + TwoDigits(i)).Rows.Hidden = False
        Next i
End Sub
''--------------------------------------
'SLD
      '  For EntryNumber = 1 To 10
      ''  For x = 0 To aNumRows
       ''     num = aNumRows(EntryNumber)
         ''   If num <= aNumRows Then

           ''     If num = 0 Then
                ''write parents here

             ''   Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(EntryNumber)).Rows.Hidden = True
               '' Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(EntryNumber)).Rows.Hidden = True

                ''MsgBox CStr(EntryNumber) + "= 0"
               '' End If
           '' End If
        ''Next x
        ''Next

''-----------------------------------------------------------

Function ThreeDigits(ByVal num As Integer)
    If num < 10 Then
        ThreeDigits = "00" + CStr(num)
    ElseIf num < 100 And num > 9 Then
        ThreeDigits = "0" + CStr(num)
    Else
        ThreeDigits = CStr(num)
    End If
End Function


''--------------------------------------
Sub Test2()
'<START: HEADER3 SPUG/SFR>?
       'ENERGY INPUT SUB-TRANSMISSION -MAIN
       aNumRows = 50
        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR
       bNumRows = 20
        'ENERGY OUTPUT SUB-TRANSMISSION
       cNumRows = 50
        'SUB-TRANSMISSION LOAD/CUSTOMERS
       dNumRows = 20
        'ENERGY INPUT DISTRIBUTION FEEDER
       eNumRows = 20

       'SPUG COMBOBOXES
       'ENERGY INPUT SUB-TRANSMISSION -MAIN
       'SPUG_A_(1-10)
       For i = 1 To 10
            With Me.Controls("SPUG_A_" + CStr(i))
                For x = 0 To aNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_A_" + CStr(i)).Text = 0
            Me.Controls("SPUG_A_" + CStr(i)).Style = 2
        Next i

        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR
       'SPUG_B_(1-10)
       For i = 1 To 10
            With Me.Controls("SPUG_B_" + CStr(i))
                For x = 0 To bNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_B_" + CStr(i)).Text = 0
            Me.Controls("SPUG_B_" + CStr(i)).Style = 2
        Next i
        'ENERGY OUTPUT SUB-TRANSMISSION
       'SPUG_C_(1-10)
       For i = 1 To 10
            With Me.Controls("SPUG_C_" + CStr(i))
                For x = 0 To cNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_C_" + CStr(i)).Text = 0
            Me.Controls("SPUG_C_" + CStr(i)).Style = 2
        Next i
        'SUB-TRANSMISSION LOAD/CUSTOMERS
       'SPUG_D_(1-10)
       For i = 1 To 10
            With Me.Controls("SPUG_D_" + CStr(i))
                For x = 0 To dNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_D_" + CStr(i)).Text = 0
            Me.Controls("SPUG_D_" + CStr(i)).Style = 2
        Next i
        'ENERGY INPUT DISTRIBUTION FEEDER
       'SPUG_E_(1-10)
       For i = 1 To 10
            With Me.Controls("SPUG_E_" + CStr(i))
                For x = 0 To eNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SPUG_E_" + CStr(i)).Text = 0
            Me.Controls("SPUG_E_" + CStr(i)).Style = 2
        Next i

       'SFR COMBOBOXES
       'ENERGY INPUT SUB-TRANSMISSION -MAIN
       'SFR_A_(1-10)
       For i = 1 To 10
            With Me.Controls("SFR_A_" + CStr(i))
                For x = 0 To aNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_A_" + CStr(i)).Text = 0
            Me.Controls("SFR_A_" + CStr(i)).Style = 2
        Next i
        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR
       'SFR_B_(1-10)
       For i = 1 To 10
            With Me.Controls("SFR_B_" + CStr(i))
                For x = 0 To bNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_B_" + CStr(i)).Text = 0
            Me.Controls("SFR_B_" + CStr(i)).Style = 2
        Next i
        'ENERGY OUTPUT SUB-TRANSMISSION
       'SFR_C_(1-10)
       For i = 1 To 10
            With Me.Controls("SFR_C_" + CStr(i))
                For x = 0 To cNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_C_" + CStr(i)).Text = 0
            Me.Controls("SFR_C_" + CStr(i)).Style = 2
        Next i
        'SUB-TRANSMISSION LOAD/CUSTOMERS
       'SFR_D_(1-10)
       For i = 1 To 10
            With Me.Controls("SFR_D_" + CStr(i))
                For x = 0 To dNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_D_" + CStr(i)).Text = 0
            Me.Controls("SFR_D_" + CStr(i)).Style = 2
        Next i
        'ENERGY INPUT DISTRIBUTION FEEDER
       'SFR_E_(1-10)
       For i = 1 To 10
            With Me.Controls("SFR_E_" + CStr(i))
                For x = 0 To eNumRows
                    .AddItem x
                Next x
            End With
            Me.Controls("SFR_E_" + CStr(i)).Text = 0
            Me.Controls("SFR_E_" + CStr(i)).Style = 2
        Next i
                MsgBox CStr(EntryNumber) + "= 0"

    '<END: HEADER3 SPUG/SFR>?

 '<START: HEADER3 SPUG N SFR>?

    'ENERGY INPUT SUB-TRANSMISSION (MAIN)(Metering)
           For i = 1 To aNumRows ' 1000
           For x = 1 To 10 ' number of spugs and sfr
               progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
            Next x
        Next i
        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR (Metering)
       For i = 1 To bNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
            Next x
        Next i
        'ENERGY OUTPUT SUB-TRANSMISSION (Feeder Metering)
       For i = 1 To cNumRows ' 2000
           For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SPUG_" + TwoDigits(x) + "_FeederMetering_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SforReS_" + TwoDigits(x) + "_FeederMetering_" + TwoDigits(i)).Rows.Hidden = False
            Next x
        Next i
        'SUB-TRANSMISSION LOAD/CUSTOMERS (Metering)
       For i = 1 To dNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_LoadCust_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_LoadCust_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
            Next x
        Next i
        'ENERGY INPUT DISTRIBUTION FEEDER (Metering)
       For i = 1 To eNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
                progressIndicator
                    Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = False
            Next x
        Next i
    '<END: HEADER3 SPUG N SFR>?
   '<START: HEADER3 MAIN>

'SPUG and SFR ARRAYS
       For i = 1 To 10
            SpugA(i) = Me.Controls("SPUG_A_" + CStr(i)).Value
            SpugB(i) = Me.Controls("SPUG_B_" + CStr(i)).Value
            SpugC(i) = Me.Controls("SPUG_C_" + CStr(i)).Value
            SpugD(i) = Me.Controls("SPUG_D_" + CStr(i)).Value
            SpugE(i) = Me.Controls("SPUG_E_" + CStr(i)).Value

            SfrA(i) = Me.Controls("SFR_A_" + CStr(i)).Value
            SfrB(i) = Me.Controls("SFR_B_" + CStr(i)).Value
            SfrC(i) = Me.Controls("SFR_C_" + CStr(i)).Value
            SfrD(i) = Me.Controls("SFR_D_" + CStr(i)).Value
            SfrE(i) = Me.Controls("SFR_E_" + CStr(i)).Value
        Next i
    '<START: HEADER3 SPUG N SFR>?
   'ENERGY INPUT SUB-TRANSMISSION (MAIN)(Metering)
       'For i = 1 To aNumRows ' 1000
           For x = 1 To 10 ' number of spugs and sfr

            num = aNumRows()
            If num <= SpugA(i) Then

            If num = 0 Then
                ''write parents here
                    Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(aNumRows) + "_Metering_" + TwoDigits(SpugA(i))).Rows.Hidden = True
                    Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SforReS_" + TwoDigits(aNumRows) + "_Metering_" + TwoDigits(SpugA(i))).Rows.Hidden = True
            End If

                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SpugA(x), False, True)
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredTransSys_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SfrA(x), False, True)
            Next x
        Next i


        'ENERGY INPUT DELIVERED BY EMBEDDED GENERATOR (Metering)
       For i = 1 To bNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SpugB(x), False, True)
                progressIndicator
                    Range("SLD_EnergyInputSubTrans_DeliveredEmbedGen_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SfrB(x), False, True)
            Next x
        Next i
        'ENERGY OUTPUT SUB-TRANSMISSION (Feeder Metering)
       For i = 1 To cNumRows ' 2000
           For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SPUG_" + TwoDigits(x) + "_FeederMetering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SpugC(x), False, True)
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_ExportedDistribution_SforReS_" + TwoDigits(x) + "_FeederMetering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SfrC(x), False, True)
            Next x
        Next i
        'SUB-TRANSMISSION LOAD/CUSTOMERS (Metering)
       For i = 1 To dNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_LoadCust_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SpugD(x), False, True)
                progressIndicator
                    Range("SLD_EnergyOutputSubTrans_LoadCust_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SfrD(x), False, True)
            Next x
        Next i
        'ENERGY INPUT DISTRIBUTION FEEDER (Metering)
       For i = 1 To eNumRows
            For x = 1 To 10
                progressIndicator
                    Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SPUG_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SpugE(x), False, True)
                progressIndicator
                    Range("SLD_EnergyInputDistributionFeeder_DeliveredEmbedGen_SforReS_" + TwoDigits(x) + "_Metering_" + TwoDigits(i)).Rows.Hidden = IIf(i <= SfrE(x), False, True)
            Next x
        Next i
    '<END: HEADER3 SPUG N SFR>?
    End If
MsgBox CStr(EntryNumber) + "= 1"
End Sub