Abid,

Dim myC As Range
For Each myC In Cells.SpecialCells(xlCellTypeFormulas)
If Left(myC.Formula, 6) = "=HSGET" Then myC.Value = myC.Value
Next myC


HTH,
Bernie
MS Excel MVP


"Abid" wrote in message
...
Hi,

I am extensive user of Hyperion Smart view. Usuualy I sent out report after
converting them into value as most of the recipeint do not have access to
Hyperion server. This make reports un-editable as all formula e.g. sum,
average etc are also convereted to values. Any idea as to how to write a code
which converts only cells with HSGETformula to value and leave others alone?

Thanks