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