Hi Paul,

You may be able to help me with the below code, it fails when run.

Basically I'm hiding certain rows when an active check box is true and the value in C4 = Warsaw to New York

This is additional to what you have helped me with previously.

Sub BreakDownofCHarges()'Declare variables
Dim xCheckbox As Boolean
Dim cellC4 As String


'Get the value of the active x checkbox
xCheckbox = Sheets("Rate Calc").CheckBoxes("RevealBreakDown").Value


'Get the value of cell C4
cellC4 = Sheets("Rate Calc").Cells(4, 2).Value


'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
If xCheckbox And cellC4 = "Warsaw to New York" Then
Sheets("Rate Calc").Rows(38:43).EntireRow.Hidden = True
Sheets("Rate Calc").Rows(52:58).EntireRow.Hidden = True
End If


End Sub