Change some of the formulae to value using VBA

[Learning Excel]

Hi,
I have a spreadsheet with some formulae and I would like to change some of them to values using VBA that contain indirect and vlookup formulae

Appreciate some helps on this as after going through the forum, cannot find help close to this.

Learning Excel

 

[SydneyGeek]

Dim c As Range
For Each c in ActiveSheet.SpecialCells(xlCellTypeFormulas)
    If Instr(1,c.FormulaR1C1,"INDIRECT") > 0 Or Instr(1,c.FormulaR1C1,"VLOOKUP") > 0 Then
        c.FormulaR1C1 = c.Value
    End If
Next c

Denis

 

[Learning Excel]

Hi,
Thank you for the quick response.
There is a error msg Run-time error 438.Object does not support this property or method at line

For Each c In ActiveWorkbook.SpecialCells(xlCellTypeFormulas)

Did I miss something ?

Learning Excel

 

[SydneyGeek]

There is a error msg Run-time error 438.Object does not support this property or method at line

For Each c In ActiveWorkbook.SpecialCells(xlCellTypeFormulas)

Did I miss something ?

Yep. You should have used ActiveSheet instead of ActiveWorkbook.

If you need to go to each sheet, you have to cycle through them. One way:

Dim Sht as Worksheet
Dim c as Range

For Each Sht In ActiveworkBook.Sheets
   Sht.Activate
   For Each c in ActiveSheet.SpecialCells(xlCellTypeFormulas)
      'do stuff here
   Next c
Next Sht

Denis