Actividad pública reciente
Ha valorado "Buena" la respuesta
Seleccionar Rango de Hojas y Exportar a Pdf
Te anexo la macro actualizada, para copiar de la hoja4 hasta la última en un pdf Sub CommandButton2_Click() 'Por.Dante Amor Dim hojas() Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path arch = Hoja2.Name n...