Find en todas las hojas de un libro

Tavo, Master:
Tengo un problema: necesito buscar un dato (nombre del paciente) en un Libro "Atención", donde cada hoja es la fecha de atención en general. Tengo que buscarlo en todas las hojas (llegarían a las 250 que soporta Excel), y volcar en el MsgBox (o mejor, en el mismo UF, en un Label.Caption) la fecha de la última visita (las hojas se copian a éste Libro Atención, siempre la última es la primera después de la hoja Home; es decir, la última fecha ).
Tengo ésto que encontré por ahí, pero no me cierra:
Sub BuscaEnHojas()
Dim w As Worksheet
Dim i As Integer
i = 0
a = UltimaVisita.ComboBox1.Value
For Each w In ThisWorkbook.Worksheets
On Error Resume Next
x = Cells.Find(What:=a).Address
If x <> "" Then
y = w.Name
i = i + 1
End If
Next w
MsgBox ("La última visita del paciente fué el: " & y)
End Sub
Fíjate y decime qué corrijo...
Un abrazo