Hi Anne,
Probably a better way, but off the top of my head:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
If Target = "payment" Or Target = "credit" Then Target.IndentLevel = 1
End If
End Sub
EDIT: Just tried the above, it indents for anything in column1 try this instead:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Column = 1 Then
If Target = "payment" Or Target = "credit" Then
Target.IndentLevel = 1
Else
Target.IndentLevel = 0
End If
End If
End Sub
Regards,
John