søge funktion

Du søger jo heller ikke efter noget, jeg har ændret i denne, den finder kun første hit, ligesom før.

Sub Makro1()
Dim Svar As String
' Makro1 Makro
'
' Genvejstast:Ctrl+s
Svar = InputBox("Søg efter", "Søg")
    Cells.Find(What:=Svar, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    With Selection.Font
        .Color = -11489280
        .TintAndShade = 0
    End With
    Range("C125").Select
End Sub

Ja selvfølgelig det virkere fint "næsten" for hvis jeg søger er efter  fx Knud så kommer knudsen med ??
Den skulle også gerne blive stående på søge resultatet og på en eller anden måde ville det være fedt hvis jeg kunne godkende søge resultatet

Public Sub Find()
    Dim Svar As String, firstAddress As String, C As Range
    [A1].Activate
    Svar = InputBox("Søg efter", "Søg")
    With ActiveSheet.Cells
        .Find(What:=Svar, After:=ActiveCell, LookIn:=xlFormulas, _
              LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
              MatchCase:=False, SearchFormat:=False).Select
        firstAddress = Selection.Address
        If MsgBox("Vil du vælge denne", vbYesNo, "Vælg") = vbYes Then Farve Selection
        Do
            .FindNext(After:=ActiveCell).Select
            If Selection.Address = firstAddress Then Exit Do
            If MsgBox("Vil du vælge denne", vbYesNo, "Vælg") = vbYes Then Farve Selection
        Loop While Selection.Address <> firstAddress
    End With

End Sub

Public Sub Farve(Rng As Range)
With Rng.Font
        .Color = -11489280
    .TintAndShade = 0
    End With
End Sub

fantastisk '''

men jeg skal have den til at stoppe når jeg har valgt et navn

Public Sub Find()
    Dim Svar As String, firstAddress As String, C As Range
    [A1].Activate
    Svar = InputBox("Søg efter", "Søg")
    With ActiveSheet.Cells
        .Find(What:=Svar, After:=ActiveCell, LookIn:=xlFormulas, _
              LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
              MatchCase:=False, SearchFormat:=False).Select
        firstAddress = Selection.Address
        If MsgBox("Vil du vælge denne", vbYesNo, "Vælg") = vbYes Then
            Farve Selection
            Exit Sub
        End If
        Do
            .FindNext(After:=ActiveCell).Select
            If Selection.Address = firstAddress Then Exit Do
            If MsgBox("Vil du vælge denne", vbYesNo, "Vælg") = vbYes Then
                Farve Selection
                Exit Sub
            End If
        Loop While Selection.Address <> firstAddress
    End With

End Sub

Public Sub Farve(Rng As Range)
With Rng.Font
        .Color = -11489280
    .TintAndShade = 0
    End With
End Sub

Kanon tak hjælpen