Adriel Ortiz Mangia respondió:
H o l a : Set h1 = Sheets("Hoja 01") ' CAMBIA EL NOMBRE DE LA HOJARuta = "C:\Users\Alonso\Desktop\" 'CAMBIA LA RUTA DEL ESCRITORIOSub Guardarpdf() Set h1 = Sheets("Hoja 01") ' CAMBIA EL NOMBRE DE LA HOJA Application.ScreenUpdating = False...