I am trying to stick the formula €œ= Today()+1€� into E3:F3 on Sheet1 which is
already merged, C1 on Sheet2, and A3 on Sheet3. However, the problem I am
having with the code below is that it sometimes sticks the formula
€œ=Today()+1 into the wrong cells or not into any of the cells at all. Can
you help me make this work?


Sub Todaysdate()
Sheets("Sheet1").Activate
ActiveCell.FormulaR1C1 = "=TODAY()+1"
Range("E3:F3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Sheet2").Activate
ActiveCell.FormulaR1C1 = "=TODAY()+1"
Range("C1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Sheet3").Activate
Range("A3").Select
ActiveCell.FormulaR1C1 = "=TODAY()+1"
Range("A3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Sheet1").Activate
End Sub