Hello,

I want to find the cells with absolute reference and the ones without abolute reference.

I tried this way (seems to work ...):


Option Explicit

Sub check_ref()
Dim vAnzZeilen As Long, vZnr As Long
Dim vInCell As String
vAnzZeilen = Worksheets(1).UsedRange.Rows.Count
MsgBox "rows: " & vAnzZeilen

For vZnr = 2 To vAnzZeilen
vInCell = Worksheets(1).Cells(vZnr, 1).FormulaLocal
' check content of the cell
If InStr(vInCell, "$") Then
Debug.Print vInCell & ": absolute"
Else
Debug.Print vInCell & ": relative"
End If
Next vZnr
End Sub

Is there a better way (function or method) to do this.

I would like to do the same check to find which cells refenrences a name.

Thanks.

Olivier