In using the the formula to value I get stuck on (For Each rCell ) Message
Compile Error Can find project or Library


"John" wrote in message
...
Worked it out Resize(, 25) = Column numbers

Thanks


"John" wrote in message
...
One slight problem, it seems to continue across all columns if there is
a
formula within i.e. from B* out. How do I get it to stop
'copy-paste-values'
at say column D?

Thanks


"John" wrote in message
...
Works a treat JE thanks for that

"JE McGimpsey" wrote in message
...
That's a bit easier:

Public Sub EliminateFormulae()
Dim wsSheet As Worksheet
Dim dTest As Double
dTest = Worksheets("Sheet1").Range("A2").Value
For Each wsSheet In Sheets(Array("Sheet2", "Sheet3",
"Sheet5"))
With wsSheet
For Each rCell In .Range("A1:A" & _
.Range("A" & Rows.Count).End(xlUp).Row)
If rCell.Value = dTest Then
With rCell.Offset(0, 1).Resize(, 25)
.Value = .Value
End With
End If
Next rCell
End With
Next wsSheet
End Sub


In article ,
"John" wrote:

Thanks for your reply. I probably should have included that the
'copy
paste
values' is required in the same cells (what I'm doing is
converting
formulas
in these cells to the values that they have calculated