Sub NumeroPagina()

WS_Count = ActiveWorkbook.Worksheets.Count

N = 1
Do Until N >= WS_Count
    '-- INSERIR NA CAPA
    ActiveSheet.Next.Select
    N = N + 1

    If ActiveSheet.Name = "SUMARIO" Then
        NPagina = N & " de " & WS_Count
        [J37].Value = NPagina
        ActiveSheet.Next.Select
        N = N + 1
        NPagina = N & " de " & WS_Count
        [J37].Value = NPagina
        ActiveSheet.Next.Select
        N = N + 1
    End If

    NPagina = N & " de " & WS_Count
    [I9].Value = NPagina
Loop

If ActiveSheet.Name = "ENCERRAMENTO" Then
    NPagina = N & " de " & WS_Count
    [J37].Value = NPagina
Else
    NPagina = N & " de " & WS_Count
    [J37].Value = NPagina
End If

Texto01 = [T2].Value & " " & N & " " & [T3].Value
[B12].Value = Texto01

Sheets("SUMARIO").Select
[K12].Value = N

Guia.Select
Application.ScreenUpdating = True