copy paste problem

[Keith Willis]

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

 

[rumkus]

Give a try this:

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

 

[Keith Willis]

that did it, thanks a million

 

[Don Guillett]

that did it, thanks a million

That may have taken awhile. Could have been faster with

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

 

[rumkus]

Thanks Don.