Selection.value = "=TODAY()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues There must be a better way to "freeze" TODAY().......