Excel Enter Date In Selected Cells

Sub EnterDateInSelectedCells()
' This function enters the current date in all selected cells.
' The format of the cells is automatically changed.

    With Selection
        ' Apply correct format
        .NumberFormat = "[$-413]d/mmm/yy;@"

        ' Enter date
        .FormulaR1C1 = Now
    End With
End Sub