Sub Makeconstants()
with Sheets("NATIONALS").Range("A804:G827")
.Formula = .Value
end with
End Sub

If you have merged cells in the range, you may need another approach.

--
Regards,
Tom Ogilvy


"DKerr" wrote in
message ...

Is there another way to remove formula from a worksheet keeping the
values using macros, I've tried using:

Sheets("NATIONALS").Select
Range("A804:G827").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False


It works every other time I use it, but in this case I get a Dr Watson
errors. Is there another way of doing this.

Excel 97.


--
DKerr
------------------------------------------------------------------------
DKerr's Profile:
http://www.excelforum.com/member.php...o&userid=13087
View this thread: http://www.excelforum.com/showthread...hreadid=477472