Ocultar fila con una condición en todas las hojas de un Libro con MACRO

Tengo un libro con 49 hojas IGUALES, me pueden ayudar a crear una macro que oculte fila de producto, la condición es el nombre del producto, los productos están en el rango("A4:A172"), les comparto el código que tengo en este momento, sólo lo hace con la hoja activa, yo necesito que oculte la fila con la condición en todas las hojas al mismo tiempo.

Sub OcultarFila()

producto = InputBox("Introduce el Producto")

fila = 4

Do While Not IsEmpty(Cells(fila, 1))

       If Cells(fila, 1) = producto Then

             Rows(fila).Hidden = True

       End If

fila = fila + 1

Loop

End Sub