Hi Paul,

OK I'm trying a different approach here now because I cannot get this to work using both cell.

I would prefer to have this working from both cells but it just seems to ignore whatever I select in C4's drop down list.

My original idea was use the values from C3 to hide/unhide the majority of fields required for the mode selected and then when the user selects the actual lane from cell c4, I can further streamline the fields by removing and or adding back in the required fields.

For example I don't need row 8 to be visible when JFK is selected as the end destination but it is required when LAX is selected.

There are other optimisation (rows to hide/unhide) for other lanes in Cell C4 but again, if I can get one to work then I can repeat for the rest


So a different approach is to just work from Cell C4 only, this is not as future proof for me as I would like and I would prefer to get the above working but it just seems to be eluding me currently and I'm nearly 5 day in on this and behind schedule.

So another way to do this and hopefully simplify this, is to use the values from cell C4 only, as they are unique to each other so I can adjust my code to look only at C4 and then do its hidding/unhiding etc.
I have tried to adjust as per below bu t it fails so need your help/guidance again please

Ive insert the below under Air as acheck as these fieds are only needed from Ocean and so shouldn't be visible when selecting a Air route.

Range("A23:A25").EntireRow.Hidden = False
Private Sub Worksheet_Change(ByVal Target As Range)    Dim r As Range
    Set r = Target.Cells(1, 1)
    If r.Address <> "$C$4" Then Exit Sub
    If Len(r.Value) = 0 Then Exit Sub
    Application.EnableEvents = False
    Unprotect Password:="dlm"
Select Case r.Value
Case "Warsaw to JFK"
    Range("A5:A6").EntireRow.Hidden = True
    Range("A8:A10").EntireRow.Hidden = True
    Range("A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = False
Case "Warsaw to LAX"
    Range("A6").EntireRow.Hidden = True
    Range("A8").EntireRow.Hidden = False
    Range("A8:A11").EntireRow.Hidden = False
    Range("A12").EntireRow.Hidden = True
    Range("A17").EntireRow.Hidden = False
    Range("A20").EntireRow.Hidden = False
Case "Malpensa to JFK"
    Range("A6").EntireRow.Hidden = True
    Range("A8").EntireRow.Hidden = True
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
Case "Malpensa to LAX"
    Range("A6").EntireRow.Hidden = True
    Range("A8").EntireRow.Hidden = False
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
Case "Heathrow to JFK"
    Range("A6").EntireRow.Hidden = True
    Range("A8").EntireRow.Hidden = True
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
Case "Heathrow to LAX"
    Range("A6").EntireRow.Hidden = True
    Range("A8").EntireRow.Hidden = False
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
Case "Ocean_EU_to_US"
    Range("A51:A74").EntireRow.Hidden = False
    Range("A23:A25").EntireRow.Hidden = False
Case "Ocean_Asia_to_EU"
    Range("A51:A74").EntireRow.Hidden = False
    Range("A23:A25").EntireRow.Hidden = False
Case "Overland"
    Range("A51:A74").EntireRow.Hidden = False
    Range("A23:A25").EntireRow.Hidden = False
End Select
    ActiveSheet.Protect Password:="dlm"
    Application.EnableEvents = True
End Sub