Absolute References (Excel 97)

[Phendrena]

Hi,

Is there a quick way to change all the references within a wooksheet to
absolute references? Either a function or a VB script?

thanks,

 

[Phendrena]

I did a search and found this......


sub ProcessData()
for each cell in Range("A1:A5000")
s = cell.formula
s1 = Application.ConvertFormula( _
formula:=s, _
fromReferenceStyle:=xlA1, _
toReferenceStyle:=xlA1, _
ToAbsolute:=xlAbsolute)
cell.Formula = s1
Next
End Sub

Change A1:A5000 to the range you want to process.
Test this on a copy of your data and make sure it does what you want.