Try this code

Dim wkbk As Workbook
Application.Goto Reference:="R1C1"
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="H:\ActivateWindows_Test.xls"
wkbk.Close Savechanges:=True
Application.DisplayAlerts = True
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria