Sub “ú•t()     
    dt = Date
    M = Month(Date)
    D = Day(Date)
    Range("C3").Value = Date
    ED = WorksheetFunction.EoMonth(Range("C3"), 0)
    Range("C4").Value = M
    Range("D4").Value = ED
    Range("D4").Select
    Selection.NumberFormatLocal = "d"
    Range("A1").Select   
End Sub