Sub Formatting()
Range("A1").Select
On Error GoTo Err
Do Until ActiveCell.Column = 20000
Columns(ActiveCell.Column).Interior.ColorIndex = 6
Columns(ActiveCell.Offset(0, 1).Column).Interior.ColorIndex = 3
Columns(ActiveCell.Offset(0, 2).Column).Interior.ColorIndex = 44
Columns(ActiveCell.Offset(0, 3).Column).Interior.ColorIndex = 1
ActiveCell.Offset(0, 5).Select
Loop
Err:
End Sub
For 1: Use CF as =(F1=TODAY())