Use esse código para adicionar várias planilhas à sua pasta de trabalho de uma só vez.
Conheça e faça download de uma planilha pronta do Excel que calcula o TEMPO e a DISTÂNCIA de viagem usando a API do Google Maps
Ao executar este código, obterá uma caixa de entrada para inserir o número total de planilhas que deseja inserir.
Sub InsertMultipleSheets()
Dim i As Integer
Let i = _
InputBox ("Digite o Nº de ABAS a inserir:", _
".: Multiplicando planilhas")
Sheets.Add After:=ActiveSheet, Count:=i
End Sub
PUDIM PROJECT
Conheça também:
Veja outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário