Martin,

What happens when you run it, does it just not update the cells, or does it
error out?

By the way, the = is not needed in
Cells(12, 4).Formula = "=20"
it can be written as
Cells(12, 4).Formula = 20
or
Cells(12, 4).Value = 20

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Martin Stabb" wrote in message
...
The following subroutine works fine in a blank sheet but
only the first line works in my calculation sheet in the
same workbook. Any ideas please?

Sub ResetDefaults()

Cells(12, 4).Formula = "=20"
Cells(15, 4).Formula = "=250"
Cells(21, 4).Formula = "=PI()*D20^2/4"
Cells(16, 12).Formula = "=D13/D14"
Cells(17, 12).Formula = "=D13/D21"

End Sub