Hi,

Try This:

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 2/1/2006 by Dhami'
' Keyboard Shortcut: Ctrl+q

Dim rngActive As Range

Set rngActive = ActiveCell

ActiveCell.FormulaR1C1 = "=NOW()"
Range("C:D").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

rngActive.Select

Application.CutCopyMode = False
End Sub

Hoop this helps,


Executor