Bien, en primer lugar la rutina debe hacer referencia a las hojas como ActiveSheet y no por su nombre, cuando sea necesario.
Por ej: si dice: Range("A5").Font.----- está bien, pero si menciona la hoja lo debés modificar y dejar:
ActiveSheet.Range("A5").Font......
La rutina tiene que estar en un módulo. Y desde el botón de tu formulario las instrucciones son:
Private Sub boton1_click() 'esto es solo ejemplo, será el nbre de tu botón.
Call rutina_formato
Sheets("Hoja3").select 'ajustá el nbre de tu hoja
Call rutina_formato
Sheets("Hoja7").Select
call rutina_formato
'regresa a la hoja 1
Sheets("Hoja1").select
End Sub
Si serán muchas más hojas se podrá hacer un bucle para no repetir tantas veces las mismas instrucciones, pero creo que con esto bastará. Cuando vuelva a la Hoja1 te devolverá el control al formulario y podrás ejecutar el botón siguiente.
Saludos
Elsa
http://es.geocities.com/lacibelesdepunilla/macros
