Zellenformatierung testen - .InsertIndent

Private Sub CommandButton2_Click()
For i = 4 To ActiveSheet.UsedRange.Rows.Count
If (Cells(i, 4)) = "Teilprojekt" Then
Cells(i, 6).InsertIndent 2
End If
Next i
End Sub

Problem an der Sache ist, wie verhindere ich denn jetzt, sollte ich das nochmal drüber laufen lassen, dass er dies auf bereits schon geänderte Zellen nochmal drüber laufen lässt.
Also mach ich das 2 mal hintereinander, so werden alle Zellen in Spalte "F" gleich 4 mal eingerückt, sofern in "D" Teilprojekt steht.
Ich müsste also irgendwie verhindern, dass bereits eingerückte Zellen in der Spalte "F" nochmals eingerückt werden.
Ich hatte es mit
If (Cells(i, 6).InsertIndent 2) Then
probiert, aber das mag vba so nicht.
Jemand einen Vorschlag wie ich das testen kann ?
Der Tom