find macro excel 2003 vba

[kuhn]

hello,

could anyone help me with the following problem:

I've got a macro which searches all worksheets of a workbook for a certain value (entered by user).

It works ok, but the problem is that it generates the error message for each worksheet and I just want one at the end of the search.

here's the code:

Sub zoek()
    Dim FindString As String
    Dim Rng As Range
    FindString = InputBox("vul het dossiernummer in")
    If Trim(FindString) <> "" Then
        For Each sh In ActiveWorkbook.Worksheets
            With sh.Cells
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "klacht niet gevonden"
            End If
        End With
        Next sh
    End If
End Sub

 

[AlphaFrog]

Sub zoek()
    Dim FindString As String
    Dim Rng As Range
    [COLOR="Red"]Dim bFound As Boolean[/COLOR]
    FindString = InputBox("vul het dossiernummer in")
    If Trim(FindString) <> "" Then
        For Each sh In ActiveWorkbook.Worksheets
            With sh.Cells
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
                [COLOR="Red"]bFound = True[/COLOR]
            End If
        End With
        Next sh
        [COLOR="Red"]If Not bFound Then MsgBox "klacht niet gevonden"[/COLOR]
    End If
End Sub

 

[Dryver14]

I'm guessing you do not mean error msg it iis just displaying the msgbox


not clever enough to know the wording to fix this however you have placed the message box stating not found within each loop of the sheet and it needs placing after all the sheets have been checked

 

[kuhn]

sweet! many thanx!