Büyük harfle başlayanları bulma ???

[MİLENYUMTUNCAY]

D sütununda yer alan ve büyük harfle başlayan tüm hücreleri seçmek ve pembe renkli yapmak istiyorum. Nasıl yapabileceğim konusunda yardımcı olursanız çok sevinirim. Saygılar...

 

[Recep İpek]

Say?n ; M?LENYUMTUNCAY,

A?a??daki kodlar? deneyebilirmisiniz?

Not:Arada bo?luk olmamas? gerekiyor.

[vb:1:f0a849218b]
Sub Sec()
Range("D1").Select
Range("D2100").Interior.ColorIndex = 0
For Each veri In Range("D2100")
If veri = "" Then Exit Sub
harf = Asc(Left(veri, 1))
If harf >= 65 And harf <= 90 Or harf >= 192 And harf <= 222 Then
veri.Select
veri.Interior.ColorIndex = 7
End If
Next
End Sub
[/vb:1:f0a849218b]