kelimenin İlk harfini büyükharf yapan makro

[metinozlu]

Merhaba
Ucase ve lcase ile kelimeleri büyük harfe ve küçük harfe çevirebiliyoruz. sadece kelimenin ilk harfini büyük diğer harflerini küçük yaptıran makro fonksiyonu nedir.
Şimdiden yardımlarınız için teşekkür ederim.

 

[Ali]

Proper

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
ilk = Target
ilk = Replace(ilk, "i", "İ")
ilk = Replace(ilk, "ı", "I")
Target = StrConv(ilk, vbProperCase)
Application.EnableEvents = True
End Sub

 

[metinozlu]

Teşekkür ederim ali bey.