Macro para formatar planilhas visiveis apenas

[BernardorValle]

Bom dia,

estou trabalhando com uma planilha e preciso formatar todas as planilhas presentes.

No caso existem planilhas ocultas e o comando que uso não está funcionando.

 

por favor me informar qual comando uso para determinada ocasião

 

Aparece erro 1004

 

 

Sub Rotulo()

 

Dim I As Long

For I = 1 To Worksheets.Count

 

    ActiveSheet.PageSetup.RightHeaderPicture.Filename = _

        "C:\Users\BernardoValle\Pictures\Sem título.png"

    With ActiveSheet.PageSetup

        .PrintTitleRows = ""

        .PrintTitleColumns = ""

    End With

    ActiveSheet.PageSetup.PrintArea = ""

    With ActiveSheet.PageSetup

      

        .RightHeader = "&G"

        .LeftFooter = "Tabela Março 2017"

        .CenterFooter = "&A"

        .RightFooter = " Valores à vista e em Reais (R$).Pagamento sinal/28 dias:  acrescentar 2,1% no preço final do produto."

 

       

    End With

    ActiveSheet.Next.Select

Next I

    

End Sub

 

 

Creio que o ActiveSheet.Next.Select só funcione se não houver células ocultas.

 

O que posso fazer para ignorar isso e fazer a alteração nas planilhas visíveis.

 

Obrigado

[minoso]

Você consegue resolver esse problema se todas as abas que estão ocultas estiverem a esquerda da primeira aba visível.

 

Seu código funcionará se houver essa estrutura

 

E sim, o ActiveWorkbook não trabalha apenas com as abas vísiveis e sim com todas as que estão na estrutura do arquivo, visíveis ou não. Então, quando a "Next" está oculta, acusa-se o erro.