Highlight cells Data

[billandrew]

Good morning

I am trying to highlight cells with data in non contiguous columns. Below is the code I have started with, not sure what I am doing incorrectly.

Thank for any help.

Sub HighlightCellwithData2()    
    Dim i As Long, lr As Long
    
    lr = Range("H" & Rows.Count).End(xlUp).Row
    
    For i = 2 To lr
    
    If Range("A" & i) <> "" Then
    
    Range("A" & i).Interior.Color = RGB(218, 239, 245)
    
        If Range("H" & i) <> "" Then
    
    Range("H" & i).Interior.Color = RGB(218, 239, 245)
    
    End If
    
        End If
        
            
    
    Next
    
        
End Sub

 

[Peter_SSs]

You are also a mind reader. The length of the columns are not the same.

Not really - you had already mentioned differences in column length.

... data in column A is not as long as Column H.