Bernd

Try something like this

Sub test()
If Range("A1").IndentLevel 0 Then
MsgBox "There is an indent of " & Range("A1").IndentLevel
End If
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"Bernd Kuegle" wrote in message
y.telekom.at...
How can I check if the text in a cell is indented? I tried it with this
code, but it doesn´t work:

if cells(5, 1).InsertIndent = 1 then ...


Many thanks
Bernd