Actividad pública reciente
Ha valorado "Buena" la respuesta
Promediar rango de hojas para aplicar a varios libros
Según entiendo seria así : Sub Promedio() Fila = ActiveCell.Row Colum = ActiveCell.Column For X = 1 To Worksheets.Count ' Ciclo Para recorrer hojas If Worksheets(X).Name <> "CONSOLIDADO" Then ' Recorre todas las hojas menos la hoja CONSOLIDADO...