Excel Help

[parrot 789]

Is there any way to make all cell references on a sheet - or even a range of cells - absolute in a single step?

[VikesNation 0]

Sub SetAllToAbsolute()

Dim c As Range

For Each c In Selection

If c.HasFormula Then

c.Formula = Application.ConvertFormula(c.Formula, _

xlA1, xlA1, xlAbsolute)

End If

Next c

End Sub

[parrot 789]

Sub SetAllToAbsolute()

Dim c As Range

For Each c In Selection

If c.HasFormula Then

c.Formula = Application.ConvertFormula(c.Formula, _

xlA1, xlA1, xlAbsolute)

End If

Next c

End Sub

Thanks.