Indent based on Entry

[JSnow]

I'm entering either 'no' or 'yes' in column D. If I enter 'yes' I would like
that text to automatically indent by 1 space (.IndentLevel = 1) so that it
sticks out to me. Please help me you Gods of Excel.

 

[Gary''s Student]

Put the following event code in the worksheet code area:

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("D")
Set t = Target
If Intersect(t, r) Is Nothing Then Exit Sub
If t.Value = "yes" Then
t.InsertIndent 1
End If
End Sub