Macro buscar en todas las hojas menos la activa

Sub Buscar()
    Dim WS As Worksheet
    Dim rBingo As Range
    Borrar_Form
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name Like "Dir*" Then
            Set rBingo = WS.Cells.Find(what:=[Solicitud], lookat:=xlWhole)
            If Not rBingo Is Nothing Then Exit For
        End If
    Next WS
    If rBingo Is Nothing Then
        ' No encontrado
        MsgBox "Código " & [Solicitud] & " no encontrado", vbInformation, "Anticipo"
    Else
        Copiar_datos WS, rBingo.Row
    End If
End Sub

Hola, encontré ese código para poder buscar un dato en todas las hojas, pero como podrán ver solamente busca en todas las hojas que tengan nombre "Dir*", quite esa línea para que buscara en todas las hojas, pero, como en la primera hoja "Buscar" estoy escribiendo lo que quier buscar ahí termina la macro, entonces quisiera que buscara en todas las hojas menos en la hoja "Buscar".