Macro to Highlight data based on criteria

[howard]

I have data in Col M. Where the data is 60 or more then all the data in the row where the value is 60 or more must be highlighted in gray. for Eg if M20 is 61 then A20:M20 must be highlighted. I have written code to do this. It works well, except if there is a no value in the cell below where the value is that is 60 or more. For eg if M21 is blank , then this cell is highlighted as well in gray. I want the macro to ignore blank cells in col M i.e the blank cells and values less than 60 must be ignored

Sub Colour_Data()


Columns("A:M").Interior.ColorIndex = xlNone
For J = 10 To Range("M65536").End(xlUp).Row
If Range("M" & J).Value >= 60 Then
Range("B" & J).Resize(, 12).Interior.ColorIndex = 15
End If
Next J
End Sub

Your assistance in this regard will be most appreciated

 

[JackDanIce]

Try:

Sub Colour_Data()
Dim J as Long
Application.ScreenUpdating = False
Columns("A:M").Interior.ColorIndex = xlNone
For J = 10 To Range("M" & Rows.Count).End(xlUp).Row
  If Range("M" & J) >= 60 AND Len(Range("M" & j)) > 0 Then Range("B" & J).Resize(, 12).Interior.ColorIndex = 15
Next J
Application.ScreenUpdating = True
End Sub

 

[howard]

Thanks for the help, much appreciated

 

[JackDanIce]

You're welcome