Hücrelerin İçeriğine Kelime Ekleme

Option Explicit
Public Sub Hucre_Icerigine_Kelime_Ekleme()
    Dim ek As String, yon As String, c As Range
    If TypeName(Selection) <> "Range" Then
        MsgBox "Önce bir hücre aralığı seçiniz.", vbExclamation, "Uyarı": Exit Sub
    End If
    ek = InputBox("Eklenecek metni yazınız:", "Metin", "#")
    If Len(ek) = 0 Then Exit Sub
    yon = InputBox("Başına mı sonuna mı? (B/S)", "Konum", "B")
    Application.ScreenUpdating = False
    For Each c In Selection.Cells
        If Not IsEmpty(c) Then
            If UCase$(Left$(yon, 1)) = "S" Then
                c.Value = CStr(c.Value) & ek
            Else
                c.Value = ek & CStr(c.Value)
            End If
        End If
    Next c
    Application.ScreenUpdating = True
    MsgBox "Metin ekleme işlemi tamamlanmıştır.", vbInformation, "Tamam"
End Sub