Søgning i flere ark

Jeg prøvet med dette, men kan ikke få den til at stoppe når den har fundet værdien. Værdien står i kol A sådan "Varenr 184". Jeg søger på 184.

    Dim xFind As Variant
   
    xFind = InputBox("Søg efter:", Søgning)
   
    With Columns("A:a")
            Set c = .Find(xFind, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False)
           
            If c Is Nothing Then
                Do
                ActiveSheet.Next.Select
                Set c = .Find(xFind, LookIn:=xlFormulas, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False)
                Loop While c Is Nothing
            Else
            Exit Sub
            End If
    End With
End Sub

Sub FindOrd()
Dim Søg As Variant, I As Integer
Dim R As Integer
I = 1
On Error Resume Next
    Søg = InputBox("Søg efter :", "Søgning")
Application.ScreenUpdating = False
    For Each ws In Worksheets
      Sheets(ws.Name).Select
      Range("A:A").Select 'området den søger på ret det selv til
      Selection.Find(What:=Søg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
        If Error = 91 Then
        Err.Clear
        GoTo Videre
        End If
        A = ActiveCell.Row
        If A = 1 Then GoTo Videre
              Sheets(ws.Name).Cells(ActiveCell.Row, ActiveCell.Column).Select
        Exit Sub
      I = I + 1
Videre:
Next
End Sub

Det virker fint - tusind tak.


For at forstå at min ikke virker, ved du så hvorfor søgningen virker i første "Set"       
  Set c = .Find(xFind, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False)
           
            If c Is Nothing Then
                Do
                ActiveSheet.Next.Select

Men IKKE i dette step.....???????

                Set c = .Find(xFind, LookIn:=xlFormulas, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False)
                Loop While c Is Nothing
            Else
            Exit Sub
            End If

Ligger du svar

Har ikke lige tid til at gennemskue forskellen, mellem de 2 eksempler.

Men du får et svar

Helt fint - tusind tak for hjælpen......