Instalar Referencias -> Microsoft Visual Basic for Application Extensibility 5.3 Sub Extraditar() Dim comp As VBIDE.VBComponent archivo = ActiveWorkbook.Name n = 0 For Each comp In ActiveWorkbook.VBProject.VBComponents If comp.Name "ImprimirTodo" And comp.Name "ThisWorkbook" Then 'Debug.Print comp.Type comp.Export "f:\archivo" & n Open "f:\archivo" & n For Append As #1 Print #1, "----[/" & comp.Name & "]" Close #1 Debug.Print comp.Name n = n + 1 If comp.Type = 100 Then Debug.Print comp.Name Set rango = ActiveWorkbook.Sheets(comp.Name).UsedRange Open "f:\archivo" & n For Output As #1 For Each r In rango If r.Formula "" And r.Value "" Then Pri...