Büyük Küçük Harf Fonksiyonlarını Kullanma

Sub HarfDönüştür()
    Dim rng As Range
    Dim secim As String
 
    secim = InputBox("Metni nasıl dönüştürmek istersiniz? Büyük Harf: 'B', Küçük Harf: 'K', Baş Harf Büyük: 'BH'", "Harf Dönüşümü")
 
    If secim = "" Then Exit Sub
 
    For Each rng In Selection
        If Not IsEmpty(rng) Then
            Select Case UCase(secim)
                Case "B"
                    rng.Value = UCase(rng.Value)
                Case "K"
                    rng.Value = LCase(rng.Value)
                Case "BH"
                    rng.Value = Application.WorksheetFunction.Proper(rng.Value)
                Case Else
                    MsgBox "Geçersiz seçim yaptınız.", vbExclamation, "Hata"
                    Exit Sub
            End Select
        End If
    Next rng
 
    MsgBox "Dönüşüm tamamlandı.", vbInformation, "Tamam"
End Sub