¿cómo convertir en absolutas varias referencias al tiempo?

hola, !

Tengo que convertir muchas formulas en referencias absolutas, para que al modificar el documento original no cambien.
Si lo hago con F4 tengo que hacerlo individualmente para cada una de las referencias utilizadas.
Hay un camino mas rapido?

(p.e.) usando una macro +/- como la siguiente:

Sub Referencias_absolutas()
Dim Celda As Range
For Each Celda In Cells.SpecialCells(xlCellTypeFormulas)
Celda.Formula = Application.ConvertFormula(Celda.Formula, xlA1, , True)
Next
End Sub

saludos,
hector.