Determine Intersection Of Target To Multiple Ranges

This code works fine, but it does not look professional. I tried to write like: If Application.Intersect(Target, rng1, rng2, rng4, rng5) Is Nothing Then Exit Sub

it did not work, but as it is down here it worked

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range, rng5 As Range
On Error Goto NoValidation
Set rng1 = Range("B28:B55")
Set rng2 = Range("D28:D55")
Set rng4 = Range("H28:H55")
Set rng5 = Range("J28:J55")
If Application.Intersect(Target, rng1) Is Nothing Then
If Application.Intersect(Target, rng2) Is Nothing Then
If Application.Intersect(Target, rng4) Is Nothing Then
If Application.Intersect(Target, rng5) Is Nothing Then
Exit Sub
End If
End If
End If
End If
End If
If Target. Validation.InCellDropdown Then Application.SendKeys "%{Up}"
NoValidation:
Err.Clear
End Sub