Such mit MSGBox und Treffer dann anzeigen

Nabend liebe Excel Helfer
Mit nachstehendem Makro suche ich in Spalte A nach einem einzugebendn
Text und mache automatisch in Spalte J ein Z.
Sub TextSuchen()
'such nach Übereinstimmung im Text in Spalte A
    Dim lstrText As String, lrZelle As Range, lstrDummy As String
    lstrText = InputBox("Geben Sie bitte den zu suchenden Text ein." & Chr(13) & Chr(13) & "(Achten Sie auf Groß- und Kleinschreibung)." & Chr(13) & Chr(13) & "[ACHTUNG auch Teiltexte sind möglich]," & Chr(13) & Chr(13) & "oder drücken Sie auf OK wenn Sie keinen Text" & Chr(13) & Chr(13) & "eingeben und das Programm verlassen möchten!", "Einzelne Dateien mit Texteingabe zur Historie senden")
        If lstrText = "" Then Exit Sub
        For Each lrZelle In Range("A:A")
            If InStr(1, lrZelle.Value, lstrText) > 0 Then
                lrZelle.Offset(0, 9).Value = "Z"
            End If
        Next
End Sub
Kann mir jemand das Makro umbauen, das ich alle Treffer aus der Suche zuerst
in eine Art Auswahlbox angezeigt bekomme und dann nur die markieren, die ich
tatsächlich mit einem Z versehen möchte. So in der Art Ankreuzverfahren.
Es kommt nämlich häufig vor, das nicht alle "Treffer" (und das sind oft viel zu viele)
der Texteingaben mit einem Z versehen werden sollen.