Otomatik küçük harf yazma

PHP- Kodu:
Private Sub Worksheet_Change(ByVal Target As Range)
sat Target.Row
If sat <= 11 And Target.Column 1 Then
On Error Resume Next
Application
.EnableEvents False
Target
.Value LCase(Replace(Replace(Target.Value"İ""i"), "I""ı"))
Application.EnableEvents True
End 
If
End Sub