Out of curiosity, why do you need to do this?

Tyro

Dim sh As Worksheet
Dim cell As Range

   For Each sh In ActiveWorkbook.Worksheets

       For Each cell In sh.UsedRange

           If cell.HasFormula Then

               cell.Formula = Application.ConvertFormula( _
                   cell.Formula, toabsolute:=xlAbsolute)
           End If
       Next cell
   Next sh