It's duplicated many times (almost every state) and the only variations are the state names and the times that determines the coloring.
Below is a snippet for Georgia.
Code: Select all
Dim N As Long
For N = 2 To 1000
If (Range("C" & N) = "Georgia" And Hour(Range("N" & N)) > 7 And Hour(Range("N" & N)) < 22) Or (Range("C" & N) = "Georgia" And Hour(Range("O" & N)) > 7 And Hour(Range("O" & N)) < 22) Then
Range("A" & N & ":Z" & N).Interior.ColorIndex = 34
End If
Next N
Thanks in advance.