Olá, pessoal Alguém já tratou o erro 1004 "O método Select da classe Worksheet falhou"? Ele ocorre na execução à medida que percorre as planilhas e não é exclusiva de uma planilha, pode parar em qualquer uma. A linha do erro apontada no depurador é "planilha.Select "
Meu código: Sub Formatar_planilhas() Dim planilha As Object For Each planilha In Worksheets planilha.SelectActiveWindow.Zoom = 100 Cells.Font.Size = 10 Cells.Font.Name = "arial" Next Sheets(1).Select End Sub
