Another way to remove formula

[DKerr]

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.

[Tom Ogilvy]

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" <[email protected]> wrote in
message news:[email protected]...
>
> 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
>

[DKerr]

That works perfectly, thanks.