Revisit some coding to reflect the new additional data to correct the output display

Hi all and thank you for looking at this thread Hopefully another for SINTEK

Owing to the committee moving the Goal posts on me I need to do some revision on the code as listed
below, the original code only needed to see if it was a case of 2 legs.
Now they have asked for if for arguments sake there are 3 legs and for testing purposes only there will
be a total of 10 checkpoints,the number of Kms per leg can vary day-to-day as do the number of CPs in each leg.
The DEMO page has a lot NO A BLOODY LOT of formula’s.


Before we can enter a figure into " Front Sheet " cell " H6 " we need to check cells " U4 to W4 ",
to see how many Legs the race is run over, The figures below the 1 2 3 are the lengths for each leg.


Then check Cells " U9 to W9" to see there if a number in those cells, these cells show how many
checkpoints are in each leg, and will govern what LEG can be displayed in " Cell F6 ".


For arguments sake if there is a figure in " Cell U9 " and it is a " 3 " then only " 3 " checkpoints
will be in that the leg of the race, so in the current situation if " 1 2 or 3 " is entered into H6 " F6 "
will show " 1st Leg " likewise when " 4 5 6 or 7 " will show " F6 " 2nd leg, and " 3rd leg" . etc etc.

Dim val As String
' Coded by Sintek
If Not Intersect(Target, Range("H6")) Is Nothing Then
    val = Target
    Application.EnableEvents = False
    If Target.Offset(, -4) >= 1 And Target.Offset(, -4) <= 100 Then
        Select Case val
            Case 1 To 3: Target.Offset(, -2) = "1st leg"
            Case 4 To 7: Target.Offset(, -2) = "2nd leg"
        End Select
    End If
    Application.EnableEvents = True
End If

Many Thanks in Advance

Pete