ActiveSheet.Paste .. highlighted in yellow
Thank you for help !!
- Code: Select all
Sub Segar()
'
' Segar Macro
'
' Keyboard Shortcut: Ctrl+Shift+N
'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "segar"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Offset(-1, 0).Range("A1:A2").Select
ActiveCell.Activate
Selection.Copy
Application.CutCopyMode = False
ActiveSheet.Paste
ActiveCell.Offset(2, 0).Range("A1").Select
End Sub