Hi. I have a workbook in which I have multiple groups of procedures. A user can select different groups of procedures with check boxes and only those selected will be visible. I would like to be able to calculate the amount of time, and cost it takes for the selected procedures, but have had no luck so far.

Sub Create()

 Rows("12:202").EntireRow.Hidden = True
 
 Let T = 0
 Let Cost = 0
 
 If Range("G2") = "True" Then
    Rows("12:31").EntireRow.Hidden = False
    For i = 12 To 31
        T = T + Range("O" & i).Value
        Cost = Cost + Range("P" & i).Value
    Next i
    
    ''''something else I tried which is repeated below
   ' T = T + Range("O16:O31")
   ' Cost = Cost + Range("P16:P31")
 End If
 
 If Range("G3") = "True" Then
    Rows("32:51").EntireRow.Hidden = False
    For i = 32 To 51
        T = T + Range("O" & i).Value
        Cost = Cost + Range("P" & i).Value
    Next i
   ' T = T + Range("O36:O51")
   ' Cost = Cost + Range("P36:P51")
 End If
 
 If Range("G4") = "True" Then
    Rows("52:77").EntireRow.Hidden = False
    For i = 52 To 77
        T = T + Range("O" & i).Value
        Cost = Cost + Range("P" & i).Value
    Next i
   ' T = T + Range("O56:O77")
   ' Cost = Cost + Range("P56:P77")
 End If
 
 If Range("G5") = "True" Then
    Rows("78:106").EntireRow.Hidden = False
    For i = 78 To 106
        T = T + Range("O" & i).Value
        Cost = Cost + Range("P" & i).Value
    Next i
   ' T = T + Range("O82:O106")
   ' Cost = Cost + Range("P82:P106")
 End If

 If Range("G6") = "True" Then
    Rows("107:112").EntireRow.Hidden = False
    For i = 107 To 112
        T = T + Range("O" & i).Value
        Cost = Cost + Range("P" & i).Value
    Next i
   ' T = T + Range("O111:O112")
   ' Cost = Cost + Range("P111:P112")
 End If

 If Range("G7") = "True" Then
    Rows("113:145").EntireRow.Hidden = False
    For i = 113 To 145
        T = T + Range("O" & i)
        Cost = Cost + Range("P" & i).Value
    Next i
   ' T = T + Range("O117:O145")
   ' Cost = Cost + Range("P117:P145")
 End If

 If Range("G8") = "True" Then
    Rows("146:176").EntireRow.Hidden = False
    For i = 158 To 164
        T = T + Range("L" & i).Value
        Cost = Cost + Range("M" & i).Value
    Next i
    
    For i = 168 To 176
        T = T + Range("N" & i).Value
        Cost = Cost + Range("O" & i).Value
    Next i
   ' T = T + Range("L158:L164") + Range("N168:N176").Value
   ' Cost = Cost + Range("M158:M164") + Range("O168:O176")
 End If

 If Range("G9") = "True" Then
    Rows("177:202").EntireRow.Hidden = False
    For i = 177 To 202
        T = T + Range("O" & i).Value
        Cost = Cost + Range("P" & i).Value
    Next i
   ' T = T + Range("O181:O202")
   ' Cost = Cost + Range("P181:P202")
 End If

Range("O2") = T
Range("O5") = Cost

End Sub