Suche in Tabellen-NamensBereich per Variable

Private Sub cmdSucheStarten_Click()
Dim SuchSpalte As String
Dim SuchString As String
Dim SuchRange As Object
Dim SuchZeile As Integer
Dim msg
Dim Antwort As Integer
'--- Variable 'SuchSpalte' erhält Wert (String) aus 'ComboBox1'-Auswahl ---
SuchSpalte = ComboBox1.Value
'--- Variable 'SuchString' erhält Wert (String) aus TextBox 'SuchString' ---
SuchString = Me.SuchString.Value
Application.Goto Reference:=SuchSpalte
With Selection
SuchZeile = .Find(What:=SuchString, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:= _
xlByRows).Row
End With
Do While SuchZeile = 0
If SuchZeile = 0 Then ' If SuchZeile Is Nothing Then '
Beep
msg = "Suchbegriff nicht gefunden!" & Chr(10) & _
Chr(10) & _
"Wiederholen:" & Chr(10) & _
"  Bitte neuen Suchbegriff eintragen und die" & _
"  Suche mit Klick auf Button 'Suche starten!'" & _
"   bestätigen." & _
"Abbrechen:" & Chr(10) & _
"  Beendet die Suche und ruft zuvor gezeigten Datensatz auf!"
Antwort = MsgBox(msg, vbRetryCancel + vbExclamation, "Suche fehlgeschlagen!")
Select Case Antwort
Case 2      ' Antwort = 'Cancel' > Suche abbrechen!
Exit Do
Case 4      ' Antwort = 'Retry'  > Suche fortsetzen!
'--- leert alten Suchbegriff aus voriger 'TextBox' für neue Suche! ---
Me.SuchString.Value = ""
End Select
End If
Loop
AktuelleDatenZeile = SuchZeile  ' Variable in folgenden Sub-Aufrufen
TxtBxnFuellenBasis              ' Sub-Aufruf
TxtBxnFuellenPlan               ' Sub-Aufruf
Me.ComboBox1.Clear
End Sub