VBA: Conditional Formatting

[unknownymous]

Hi Gurus,

Could you help me simplify below code which I recorded?
Basically, I need to apply these conditional formatting and hoping that the macro will look for Change 1, Change 2 and Change 3 header name and reflect the number format for all tabs (as the column might interchange on the other tab) if headers are available.

= = = = = =
Sub Test()

Columns("I:K").Select
Selection.NumberFormat = "#,##0"
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
ExecuteExcel4Macro "(2,1,""#,##0"")"
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.NumberFormat = "#,##0;[Red]#,##0"
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
ExecuteExcel4Macro "(2,1,""#,##0;[Red]#,##0"")"
With Selection.FormatConditions(1).Font
.Color = -16744448
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("B1").Select

End Sub

= = == ==

Appreciate the help.


Cheers!