copy paste problem

  • Thread starter Thread starter Keith Willis
  • Start date Start date
K

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
 
Give a try this:

With Worksheets("Formulas").Range("A1:IV5000")
..Value = .Value
End With
 
that did it, thanks a million
Click to expand...

That may have taken awhile. Could have been faster with

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