Búsqueda de valor en varias hojas

Buenas tardes, solicito ayuda al foro con el siguiente caso
gracias por la atención

Búsqueda de valor
Tengo una macro que busca el valor de un textBox en un archivo, en una hoja
específica,
necesito que me busque el dato en todas las hojas, pero no he podido, solo
me funciona
para una específica a continuación el código

Dim x As Boolean
Dim Celda As Range
For Each Celda In Worksheets("CA-AUT-MASG").Range("a1:a1000").Cells
If txbConsultaAnexoXIIIFuncion.Value = Celda.Value Then
Celda.Activate
x = True
End If
Next Celda
If x = False Then
MsgBox ("La Función Digitada es Incorrecta")
End If