Excel Macros, adding code to highlight numbers under 500

Question

Hello,

I am looking to run the following code, but to select numbers under 500 to do the following, but also to ignore an empty box. I would like to do this with my current Macro.

Sub HighlightUnder500()

'

' HighlightUnder500 Macro

  Selection.Font.Bold = True 

With Selection.Interior 

    .Pattern = xlSolid 

    .PatternColorIndex = xlAutomatic 

    .Color = 49407 

    .TintAndShade = 0 

    .PatternTintAndShade = 0 

End With 

End Sub

Answer 1

Thank you very much

Answer 2

Sub HighlightUnder500() With Selection.FormatConditions .Delete With .Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""""") .Interior.ColorIndex = xlColorIndexNone End With With .Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=500") .Font.Bold = True .Interior.Color = 49407 End With End With End Sub