Como puedo realizar modificaciones a todas las hojas de un libro, excepto a las que le indique

Favor su ayuda,

tengo el siguiente código de macro que me realiza las acciones en todas las hojas de un libro, pero necesito excepcionar algunas hojas???

Sub presentación()


For Each hoja In Sheets
hoja.Select
Rows("1:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveSheet.Pictures.Insert( _
"C:\Users\Patricio Carrillo\Desktop\condusef-cobranza.jpg").Select
Selection.ShapeRange.ScaleWidth 0.3899676375, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.3899677253, msoFalse, msoScaleFromTopLeft
Rows("5:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A10").Select
ActiveCell.FormulaR1C1 = "A PAGARLAS CUENTAS CABRITOS"
Range("A19").Select
ActiveCell.FormulaR1C1 = "ATENTAMENTE"
Range("A23").Select
ActiveCell.FormulaR1C1 = "MARCELO ADASME VILLAR"
Range("A21").Select
Next

atento a sus respuestas


End Sub

1 respuesta

Respuesta
1
For Each hoja In Sheets
'agrega la siguiente línea
   select case hoja.name
      'indica el nombre de las hojas que no se modifican
       case "hoja1", "hoja6", "hojax"
       case else
       'aqui debe continuar tu código
       'por último agrega esta línea antes del next
       end select
    next

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas