Pages

Wednesday, March 21, 2012

Recorded Macro

Option Explicit

Sub NameAndTime()

' NameAndTime Macro

' This Macro enters my name and current time

' Keyboard Shortcut: Ctrl+Shift+N

 

    ActiveCell.Select

    ActiveCell.FormulaR1C1 = "RaviKanth Janapareddy"

    ActiveCell.Offset(1, 0).Range("A1").Select

    ActiveCell.FormulaR1C1 = "=NOW()"

    ActiveCell.Select

    Selection.Copy

    Application.CutCopyMode = False

    Selection.Copy

    Application.CutCopyMode = False

    Selection.Copy

    Application.CutCopyMode = False

    Selection.Copy

    Application.WindowState = xlMaximized

    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

        xlNone, SkipBlanks:=False, Transpose:=False

    ActiveCell.Offset(-1, 0).Range("A1").Select

    ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit

    Selection.Font.Bold = True

    With Selection.Font

        .Name = "Calibri"

        .Size = 16

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ThemeColor = xlThemeColorLight1

        .TintAndShade = 0

        .ThemeFont = xlThemeFontMinor

    End With

    ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit

End Sub

 

No comments:

Post a Comment