Dante Amor respondió:
H o l a: Te anexo la macro Sub GuardarPdf() 'Por.Dante Amor activa = ActiveSheet.Name For Each h In Sheets If h.[A1] = "Print" Then If una = False Then h.Select una = True Else h.Select False End If End If Next If una Then ruta = ThisWorkbook.Path &...