Suche zeilenbezogen...

Sub Seek(Begriff As String)
Dim wks As Worksheet
Dim rng As Range
Dim sAddress
frmSuche.Hide
For Each wks In Worksheets
Set rng = wks.Cells.Find(what:=Begriff, LookIn:=xlValues, SearchOrder:=xlByColumns)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then
frmSuche.Show
Exit Sub
End If
Set rng = Cells.FindNext(After:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
frmSuche.Show
ThisWorkbook.Sheets("Welcome").Activate
End Sub

Wäre nett, wenn mir jemand helfen könnte....