Have a look at vba help index for SELECT CASE

On Jun 21, 6:59*am, "Vacuum Sealed" wrote:
Hi All

What would be the best approach for the following scenario:

So much to learn, such a large vacuum of space to fill, I still have so much
to learn

I need help constructing the correct syntax

Sub TrafficFlow()

Dim myRng As Range

Set myRng = [F4:F300]

* * * * If myRng.Value = #12:00:00 AM# And myRng.Value < #1:00:00 AM# Then
* * * * * * Range("M5") = Count(myRng)
* * * * *End If
* * * * If myRng.Value = #1:00:00 AM# And myRng.Value < #2:00:00 AM# Then
* * * * * * Range("M6") = Count(myRng)
* * * * *End If
'
'
'down to

* * * * If myRng.Value = #11:00:00 PM# And myRng.Value < #12:00:00 AM# Then
* * * * * * Range("M28") = Count(myRng)
* * * * *End If
End Sub

As always thank you so much for your assistance.

TIA
Mick.