How To Shorten Superfluous Code From Recorded Macro

[Kenneth Hobson]

The fewer times that you reference an object the better. This is easy to read anyway.

Private Sub CommandButton2_Click()
  With Range("E4:N4")
    .Interior.ColorIndex = 3
    .Font.Bold = True
    .Font.Size = 16
    .Font.Color = rgbWhite
    .FormulaR1C1 = "=RC[-1]+1"
  End With
  Range("E4").FormulaR1C1 = "=TODAY()"
  Range("E4:N23").Borders.LineStyle = xlContinuous
  Columns("E:N").ColumnWidth = 17.14
End Sub