Sub IndustrialActualiza()
Worksheets("IndF").Protect UserInterfaceOnly:=True
MesAņo = Application.Cells(5, "L")
Application.Cells(2, "R") = MesAņo
' Aqui manda el error de que la hoja esta protegido la hoja es "IndF"
' que ahi se lleva a cabo el filtro
    Range("BAreneras").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=
_
        Range("CAreneras"), CopyToRange:=Range("EAreneras"), Unique:=False

' TOMA LOS SALDOS FINALES DE BANCOS E INVERSIONES
renglon = Application.Cells(2, "o")
SFBancos = Application.Cells(renglon, "EN")
SFInversiones = Application.Cells(renglon, "EO")
'Application.Cells(161, "j") = SFBancos
Application.Cells(162, "j") = SFInversiones
' PARA CAMBIAR EL TITULO DEL REPORTE SE PONE EN BLANCO LA CELDA N7
Application.Cells(7, "N") = ""
' CALCULA EL TITULO DE LOS MESES
Mes1 = Application.Cells(6, "r")
Mes2 = Application.Cells(renglon, "r")
Aņo1 = Application.Cells(3, "o")
Application.Cells(3, "C") = Mes1 & " " & Aņo1 & " A " & Mes2 & " " & Aņo1
End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)