I'm having some trouble with the code below, I basically need to search mulitple sheets for a set value and then be able to tag the data once it's found. I eventually will need copy the entire column into a new sheet, but for now being able to find it and select it works. One problem is that the number of sheet tabs will vary, so I can't count on a set number of sheets to search. The code below seems to work, until the second instance of the error occurs, then it dies.

Any help would be appreciated.


Public Sub test()

    Dim i As Integer
    Dim f As String
    Dim x As Long

    x = ActiveWorkbook.Sheets.Count
    i = x

    f = "FindMe"

Sheet_Loop:

    On Error GoTo FindMissingData

    If i = 0 Then
        MsgBox "Done"
        End
    Else
        Sheets(i).Select

        Range("A1").Select
        Cells.Find(What:=f, MatchCase:=True).Activate
        Selection.EntireColumn.Select
        Selection.Font.Bold = True

    End If

    i = i - 1

    GoTo Sheet_Loop

    Exit Sub

FindMissingData:
    i = i - 1
    GoTo Sheet_Loop

End Sub

Th error should occur if you cannot find the required range

Hence just change the part of your find code to

        Set rng = Cells.Find(What:=f, MatchCase:=True)
        If Not rng Is Nothing Then
            rng.Select
            Selection.EntireColumn.Select
            Selection.Font.Bold = True
        End If

this should work

Cheers
Shasur

http://www.vbadud.blogspot.com

Thanks! That worked.