Hi Paul,

If Air, I have forced it to read 'Factory Load"

If rC3.Value = "Air" Then rC5.Value = "Factory Load"
Basically I only need the change C5 to 'CFS Loading' when selecting either Gdynia or Hamburg to New Your or Los Angeles, the rest don't need it.

I don't know how to just have them selectable so was trying to force C5 to 'Factory Load' for the rest, which is why they work but then fails when either Gdynia or Hamburg is selected.


If rC3.Value = "Air" Then rC5.Value = "Factory Load"    
    Select Case rC3.Value & "#" & rC4.Value & "#" & rC5.Value
 
Case "Air" & "#" & "Warsaw to New York" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A16").EntireRow.Hidden = True
    Range("A17").EntireRow.Hidden = False
    Range("A18:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    Range("A32:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Air" & "#" & "Warsaw to Los Angeles" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A16").EntireRow.Hidden = True
    Range("A17").EntireRow.Hidden = False
    Range("A18:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
            
Case "Air" & "#" & "Malpensa to New York" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5:A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A12").EntireRow.Hidden = False
    Range("A13:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Air" & "#" & "Malpensa to Los Angeles" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5:A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Air" & "#" & "Heathrow to New York" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5:A6").EntireRow.Hidden = True
    Range("A7").EntireRow.Hidden = False
    Range("A8").EntireRow.Hidden = True
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Air" & "#" & "Heathrow to Los Angeles" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5:A6").EntireRow.Hidden = True
    Range("A7").EntireRow.Hidden = False
    Range("A8").EntireRow.Hidden = True
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff