Caro MárcioJr:
Não sei se compreendi completamente seu problema mas façamos uma tentativa. Uma ideia seria como abaixo:
Como vc não pôde anexar sua pasta de trabalho (e no Google Drive aponta que "arquivo não existe"), estou supondo que nela exista uma planilha com nome "Índice" onde estará o desejado sumário além, é claro, de todas as outras planilhas as quais vc queira listar numeração. Veja que a ordem das planilhas dentro da pasta é importante, pois é nisso que o código irá se basear para sequenciar a numeração.
Também pelo mesmo motivo de desconhecer sua pasta de trabalho, não foi possível prever quantas páginas haverá na própria planilha "Índice" para somá-la aos demais números de páginas. Para contornar isso, preveja e ajuste manualmente a quantidade de páginas na constante "págsIniciais" dentro do código.
A listagem aparecerá nas colunas B (nome da planilha) e C (número da página) da planilha "Índice", à partir da linha 4 (se necessário, altere no código essas posições).
Sub Sumário()
Const págsIniciais As Integer = 4
Dim ws As Worksheet
Dim pág As Long, linIni As Long
pág = págsIniciais
linIni = 4 'Começa o sumário na quarta linha da planilha "Índice"
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Índice" Then
With ThisWorkbook.Worksheets("Índice")
.Cells(linIni, 2).Value = ws.Name
.Cells(linIni, 3).Value = pág
End With
pág = pág + ws.PageSetup.Pages.Count
linIni = linIni + 1
End If
Next ws
End Sub
Postado : 17/02/2016 11:21 pm