How about the below, in the worksheet you want it to work on (also example uploaded)
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
If Left(Target.Value, 1) = ">" Then
Target.InsertIndent 10
End If
End If
End Sub