Hi

I'm using the following code to try to paste over some formulas as
value by all i get is "object does not support this property or method
on the paste line, any thoughts?

xlWB.sheets("Formulas").Cells.Select
myExcel.Selection.Copy
xlWB.sheets("Formulas").range("A1").Activate
myExcel.sheets("Formulas").activecell.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
xlWB.CutCopyMode = False

xlWb is the workbook object
myExcel is the application object

Give a try this:

With Worksheets("Formulas").Range("A1:IV5000")
..Value = .Value
End With

that did it, thanks a million

On Monday, April 2, 2012 6:33:42 AM UTC-5, Keith Willis wrote:
that did it, thanks a million

That may have taken awhile. Could have been faster with

With Worksheets("Formulas").usedrange.specialcells(xlfo rmulas)
..Value = .Value
End With

Thanks Don.