InsertIndent

[Bernd Kuegle]

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

 

[Nick Hodge]

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
(e-mail address removed)