Ramon b

Un miembro de otro blog me dio la espuesta y la compatro con vosotros, Todos los creditos para Victor1 "Bien; con estas explicaciones voy a hacer 3 nuevas propuestas. La primera, para el cálculo de 5.000 :...

Enconré la respuesta en estos dos enlaces Para buscar los libros(y otros archivos dentro de una carpeta) https://www.youtube.com/watch?v=MUc7d4InqK0 Para listarlos:...

Vale ya obtuve la respuesta por otro lado... :) ! Por si a alguien le interesa: If MsgBox("VAS A EJECUTAR LA MACRO RENOMBRAR HOJAS?", vbExclamation + vbYesNo) = vbYes Then 'aqui va tu macro Else End If End Sub Un saludo! Esta vez fui más rápido que...

Me respondieron por otro lado! Gracias de todos modos, Feliz 2023 para todos! Ramon. Sub InsertaImagenMA(): On Error Resume Next Application.ScreenUpdating = False For Each hoja In Sheets If Not hoja.Name = "Nueva plantilla" Then hoja.Select...