All pastes #774185 Raw Edit

highlightIt function

public text v1 · immutable

·published 2007-11-15 02:08 UTC

Function highlightIt(rowNum As Integer, checkColumn As String, startHighlightColumn As String, endHighlightColumn As String) As Boolean
     If Not Len(Range(checkColumn & rowNum, checkColumn & rowNum).Value) = 0 Then
          Range(startHighlightColumn & rowNum, endHighlightColumn & rowNum).Interior.ColorIndex = 3
     Else
          If (rowNum Mod 2) = 0 Then
               Range(startHighlightColumn & rowNum, endHighlightColumn & rowNum).Interior.ColorIndex = 32
               highlightIt = True
          End If
     End If
     If Not highlightIt = True Then
          highlightIt = False
     End If
End Function