VBA Macros taken from Excel

Custom Macros

Sub DoIt()

Selection = Selection.Value

End Sub



Sub datevalues()
'
' Macro2 Macro
' Macro recorded 05/03/2012 by Nick Latocha
'

'
    Selection.Insert Shift:=xlToRight
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=DATEVALUE(RC[1])"
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A11246")
    ActiveCell.Range("A1:A11246").Select
    Selection.Copy
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "dd/mm/yyyy;@"
    ActiveCell.Offset(0, -1).Columns("A:A").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
End Sub