Converting selective formulas to text

Hi,

I'm trying to convert some of the formulas in a worksheet to values as long as they satisfy the following:

(1) contains a vlookup formula (linked to another worksheet)
(2) contains a countif formula e.g. in {Range(P$8)} =SUM($D8:OFFSET(D8,0,COUNTIF($D$7:$O$7,"ACT")))
(3) is a text formula

I managed to figure out on how to use the InStr VBA Function before receiving replies to my original post here.
I welcome any suggestions on how I can improve my code below by combining them into one...

Please Login or Register  to view this content.

Essentially what I need to do is convert to values all formulas that do not sum row or column data and any sum formula which contains an offset function.