Help with hiding rows based on cell criteria

[=HPSF=RMP]

I've searched far and wide. I'm close, but can't get it to work.


Here is my code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("n1")) Is Nothing Then
  Exit Sub
 Else
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
Rows("8:28").Hidden = True
    Select Case Range("n1").Value
     Case "1"
     Rows("8:12,16:28").Hidden = False
     Case "2"
     Rows("8:10,12:19,22:28").Hidden = False
     Case "3"
     Rows("9:10,12,16,18:28").Hidden = False
     Case "4"
     Rows("9:10,12:16,18:19,22:28").Hidden = False
End Select
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

I have a formula in N1 that will give me a number from 1-5.
I want to reveal rows based on the result of the formula in N1.
the forumla in N1 is:

=IF(L1="Inbound ",1,IF(L1="Inbound 3rd Party",2,IF(L1="Outbound ",3,IF(L1="Outbound 3rd Party",4,5))))

The formula for L1 is a concantination of two other cells:

=F3&" "&J1

Hope this makes sense.
Any help on this would be great thanks

 

[=HPSF=RMP]

The macro is running, but it doesn't seem to work... Getting a Run-time error '-2147417848 (80010108)
Method 'Hidden' of object 'Range' failed.