Sub DateFormat() Columns("E:E").Select Selection.NumberFormat = "dd-mm-yyyy" ActiveWorkbook.Save End Sub