CriaPlanilhas.txt

Sub cria_planilhas()
    
    
    'CRIA NOVAS PLANILHAS E RENOMEIA
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(2).Name = "MODELO"
    ActiveWindow.DisplayGridlines = False

    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(3).Name = "Contagem Total"
    ActiveWindow.DisplayGridlines = False

    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(4).Name = "Soma de Duração Total"
    ActiveWindow.DisplayGridlines = False

    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(5).Name = "Contagem Total Média"
    ActiveWindow.DisplayGridlines = False

    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(6).Name = "Soma de Duração Média"
    ActiveWindow.DisplayGridlines = False

    'OCULTA AS PLANILHAS
    Sheets("MODELO").Visible = False
    Sheets("Contagem Total").Visible = False
    Sheets("Soma de Duração Total").Visible = False
    Sheets("Contagem Total Média").Visible = False
    Sheets("Soma de Duração Média").Visible = False
    
    Sheets(1).Select
    
End Sub