Can you change a massive amount of relative cells on one spread work sheet to
absolute without going into each cell and hitting F4?

Susan

By VBA only.


Sub Absolute()
Dim cell As Range
For Each cell In Selection
If cell.HasFormula Then
cell.Formula = Application.ConvertFormula(cell.Formula, _
xlA1, xlA1, xlAbsolute)
End If
Next
End Sub


Sub AbsoluteRow()
Dim cell As Range
For Each cell In Selection
If cell.HasFormula Then
cell.Formula = Application.ConvertFormula(cell.Formula, _
xlA1, xlA1, xlAbsRowRelColumn)
End If
Next
End Sub


Sub AbsoluteCol()
Dim cell As Range
For Each cell In Selection
If cell.HasFormula Then
cell.Formula = Application.ConvertFormula(cell.Formula, _
xlA1, xlA1, xlRelRowAbsColumn)
End If
Next
End Sub


Sub Relative()
Dim cell As Range
For Each cell In Selection
If cell.HasFormula Then
cell.Formula = Application.ConvertFormula(cell.Formula, _
xlA1, xlA1, xlRelative)
End If
Next
End Sub


Gord Dibben MS Excel MVP

On Mon, 6 Mar 2006 12:15:31 -0800, Susan A at Millennium Medical <Susan A at
Millennium wrote:

Can you change a massive amount of relative cells on one spread work sheet to
absolute without going into each cell and hitting F4?

Gord Dibben MS Excel MVP

Gord,
Thank you very much!
Have a good day.
Susan.

"Susan A at Millennium Medical" wrote:

Can you change a massive amount of relative cells on one spread work sheet to
absolute without going into each cell and hitting F4?

Thanks for the feedback. Always appreciated.

Gord

On Tue, 7 Mar 2006 04:11:27 -0800, Susan A at Millennium Medical
om wrote:

Gord,
Thank you very much!
Have a good day.
Susan.

"Susan A at Millennium Medical" wrote:

Can you change a massive amount of relative cells on one spread work sheet to
absolute without going into each cell and hitting F4?

Gord Dibben MS Excel MVP