Macro para copiar formato de hoja a todo el libro o a todas las hojas que contenga

Necesito darle a todas las hojas de un libro el formato que tiene la hoaj 1, de decir copiar formato de una hoja a todas las hojas que contenga, sin saber de primeras cuantas hojas va a contener el libro, en unos casos serán 3 en otras 10...