Maybe:[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Target.Value = LTrim(Target.Value)
End If
End Sub
[/VBA]