VBA Look for blank cells in columns and highlight the header of the column

[tropics123]

Hi, thank you in advance for you help! Here's what the VBA is trying to do but not successful Look for blank cells in columns D and J, if there are blank cells then highlight the header cell in the same column and if no blank then do nothing. This will let me know there are blank cells to look at rather than filter every time since the data will change daily. Thank you so much for your help!

Sub Blank()


If IsEmpty(Range("D").Value) Then


Range("D1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0

Next


If IsEmpty(Range("J").Value) Then
Range("J1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0

End If


End Sub

 

[JoeMo]

Maybe something like this:

Sub tropics123()
Dim usedR As Range
Set usedR = ActiveSheet.UsedRange
Application.ScreenUpdating = False
Range("D:D")(1).Interior.Color = xlNone
Range("J:J")(1).Interior.Color = xlNone
With Intersect(usedR, Columns("D"))
    If Application.CountA(.Cells) < .Rows.Count Then Columns("D").Cells(1, 1).Interior.Color = vbRed
End With
'repeat With-End With block for col J here
Application.ScreenUpdating = True
End Sub

 

[tropics123]

Thank you! This works perfectly!

 

[JoeMo]

Thank you! This works perfectly!

You are welcome - thanks for the reply.