IF statment nested within VBA Code

[Paul_Hossler]

Option Explicit


Sub BreakDownofCHarges()


'If the active x checkbox is checked and cell C4 is equal to "Warsaw to New York", then hide rows 38 to 43 and rows 52 to 58
With Sheets("Rate Calc")
    If .CheckBoxes("RevealBreakDown") And .Cells(4, 2).Value = "Warsaw to New York" Then
        .Rows("38:43").Hidden = True        '   .Rows(..) with a more than one  requires a string, don't know why ... that's just MS
        .Rows("52:58").Hidden = True        '    Also .EntireRow is assumed
    End If
End With


End Sub

Another way

Sub BreakDownofCharges_1()


'If the active x checkbox is checked and cell C4 is equal to "Warsaw to New York", then hide rows 38 to 43 and rows 52 to 58
With Sheets("Rate Calc")
    If .CheckBoxes("RevealBreakDown") And .Cells(4, 2).Value = "Warsaw to New York" Then
        .Rows(38).Resize(6).Hidden = True
        .Rows(52).Resize(7).Hidden = True
    End If
End With


End Sub