Private Sub CommandButton1_Click()

    Dim i As Integer, veri As String, aranan As String

    

    With [a1]

        veri = .Text

        aranan = [B4].Text

        .Font.Bold = False

        .Font.Underline = xlUnderlineStyleNone

        .Font.FontStyle = "Normal"

        If [B4].Value = "" Then GoTo son

        For i = 1 To Len(veri)

         With [a1].Characters(i, Len(aranan)).Font

           If Mid(veri, i, Len(aranan)) = aranan Then

                .Bold = True

                .Underline = xlUnderlineStyleSingle

                .FontStyle = "normal"

                .Size = 9

                .Color = vbBlue

                .Background = xlBackgroundAutomatic

            End If

        End With

        Next

    End With

son:

End Sub