If Range("A1").Value = "OK" then
Range("B9").Copy Destination:=Activecell
End If

--
Regards,
Tom Ogilvy

"Gerrym" wrote in message
...
I have a formula which chacks the contents of a cell, if
it is ok I want to leave it otherwise I want to copy the
contents of another cell into the active cell. How do I do
this