Büyük harfe Çevirmek

[Mdemir63]

Selamlar,

Arkadaşlar A sütunundaki ad ve soyadların Tamamını Büyük harfe çevirmek istiyorum. Aşağıdaki kodlar zaten ThisWorkbook sayfasına yapıştırdığımda büyük harfe çeviriyor.Ancak; ben buton yardımıyla çevirmek istiyorum.kodlarda ne gibi değeşiklik yapmalıyım?
Saygılar

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Kelime = Replace(Target.Value, "i", "İ")
Kelime = Replace(Kelime, "ı", "I")
Target.Value = StrConv(Kelime, vbUpperCase)
End Sub

 

[Recep İpek]

Sub Button1_Click()
For Each veri In Range("a2:a5000")
Kelime = Replace(veri.Value, "i", "İ")
Kelime = Replace(Kelime, "ı", "I")
veri.Value = StrConv(Kelime, vbUpperCase)
Next
End Sub

olarak deneyiniz.

 

[Mdemir63]

Selamlar,

Ripek hocam çok teşekkürler
iyi akşamlar

Saygılar