Excel VBA

Compare 2 Columns

Sub ColorOverWorked()
    Dim DNrow       As Long
    Dim LastRow     As Long
    Dim CurrRow     As Long
    Dim LastCol     As Long
    Dim CurCol      As Long
    Dim L           As Long
    LastRow = Range("A1000000").End(xlUp).Row   'Find last row
    LastCol = Range("XFD4").End(xlToLeft).Column    'Get last used column
    DNrow = 0       'Instances counter
    CurrRow = 4     'First row of data
    For L = CurrRow To LastRow
        For CurCol = 3 To LastCol Step 2    'Choose next D column
            Select Case Cells(L, CurCol - 1).Value  'look at previous colimn entry
                Case 1
                    If Cells(L, CurCol).Value = 1 Then  'if both are 1
                       Cells(L, CurCol).Interior.Color = RGB(254, 0, 0) 'set cell color
                       DNrow = DNrow + 1    'increment found counter
                    End If
                Case 0      'if zero do nothing at this time
            End Select

        Next CurCol
       
    Next L
    MsgBox "Completed checking for Night & Day and found " & DNrow & " instances ", vbInformation, "Completed Run"
End Sub