How to chnge 35 relative cells to 35 absolute cells at one time.

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 [email protected]> 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
<[email protected]> 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