Findnext not working

I can't seem to get the findnext to work. I can find the first instance but none after that. Here's my code. Can anyone help me? Thanks.

    Dim B As Range
    Dim SheetNumb As Integer
    SheetNumb = 1
    Do While SheetNumb <= Sheets.Count
        Sheets(SheetNumb).Select
        If ActiveSheet.Name = "Page1" Then
            Exit Do
        End If
        Set B = Sheets(SheetNumb).Cells.Find("Mechanical", SearchOrder:=xlByColumns, LookIn:=xlValues)
        If Not B Is Nothing Then
            B.Activate
            FindAddress = B.Address
            Do
                B = Sheets(SheetNumb).Cells.FindNext(B)
            Loop While Not B Is Nothing And B.Address <> FindAddress
        End If
        SheetNumb = SheetNumb + 1
    Loop

It looks like you are not setting B in you Do Loop

try changing

B = Sheets(SheetNumb).Cells.FindNext(B)

to

Set B = Sheets(SheetNumb).Cells.FindNext(B)

Yup. that was it. Thanks.