Tengo varias macros para varias hojas, como se podria hacer dentro de la misma macro para que se ejecute en varias hojas a la vez y asi no tener que hacer varios modulos y a su vez varias macros.
La parte de la macro es esta:
Range("AC" & (y - 18)).Select ActiveCell.Value = Worksheets("hoja 1").Range("H" & (y - 18)).Value Range("AD" & (y - 18)).Select ActiveCell.Value = Worksheets("hoja 1").Range("I" & (y - 18)).Value
o sea, lo que quiero es que en esa macro se ejecute en varias hojas a la vez, ejemplo hoa1,hoja2,hoja3,hoja4
Salud2.....
Tendrías que poner la macro en un módulo.
Luego tendrías que hacer un bucle que vaya recorriendo todas las hojas. Es más fácil hacerlo con el índice en vez de con el nombre de la hoja. Algo así como:
for a = 1 to worksheets.count
debug.print a, worksheets(a).name
next
Este código escribe el índice junto con el nombre de cada hoja del libro en la ventana Inmediato.
Adapta tu código utilizando esto. Espero que te sirva.
Un saludo