VBA Excel: Funcion para buscar un texto en todas las hojas de un Libro

Function newclient(clientID As String) As String
Dim count As Integer

For Each Worksheet In Worksheets
    If Not Worksheet.UsedRange.Find(clientID, lookat:=xlWhole) Is Nothing Then
    count = count + 1
    MsgBox (count)
    End If
Next Worksheet

If count > 1 Then
newclient = "Old client"
Else
newclient = "New client"
End If
End Function