Macro simples do Aplicativo Microsoft Excel VBA, que adiciona um cabeçalho na folha de planilha, contém também uma macro auxíliar para ajudar no teste, deletanto o cabeçalho inserido. Observe que a macro está usando a instrução For Each, isso afeta todas as planilhas do livro, então, a macro inserirá cabeçalho em todas as planilhas do livro.


Sub Inserir_cabecalho_todas_planilhas()
'Adiciona uma espécie de cabeçalho em todas planilhas.
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Range("A1").Value = "DATA"
ws.Range("B1").Value = "NOME"
ws.Range("C1").Value = "ENDEREÇO"
ws.Range("D1").Value = "CIDADE"
ws.Range("E1").Value = "C E P"
Next ws
End Sub

Sub Limpar_cabecalho_todas_planilhas()
'Adiciona uma espécie de cabeçalho em todas planilhas.
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Range("A1").Value = ""
ws.Range("B1").Value = ""
ws.Range("C1").Value = ""
ws.Range("D1").Value = ""
ws.Range("E1").Value = ""
Next ws
End Sub


Aprenda sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Essa macro do Aplicativo Microsoft Excel VBA, adiciona (5) cinco planilhas ao livre, referente aos dias da semana:
Segunda, Terça, Quarta, Quinta, Sexta, e a outra macro abaixo deleta todas as planilhas preservando uma, auxliando no teste do usuário desenvolvedor.


Option Explicit

Sub Adiciona_planilhas_nome_dia_da_semana()
Dim i As Integer

On Error Resume Next

If TypeName(Selection) <> "Range" Then
MsgBox "A folha deve estar ativa para adicionar nova folha !", vbInformation, "Saberexcel - Planilha Ativa"
Exit Sub
End If

Application.ScreenUpdating = False

For i = 1 To 5
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Application.WorksheetFunction.Proper(Format(DateSerial(1, 1, i), "ddd"))
Next i

End Sub

'Esta macro deleta todas as folhas de planilha e preserva a desejada, macro ajudará no teste da macro.
Sub Deleta_todas_menos_a_desejada()
Dim Plan As Worksheet
On Error Resume Next
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
For Each Plan In Worksheets
If (Plan.Name <> "Plan1") Then
Plan.Delete
End If
Next
Application.DisplayAlerts = True
End Sub


Aprenda Aplicativo Microsoft Excel VBA - SaberExcel

Saberexcel - o site das macros
Esse exemplo de macro do Aplicativo Microsoft Excel VBA, faz uma copia de uma determinada folha de planilha e adiciona no Workbook, mas não copia os caracteres númericos.

Sub Copiar_Planilha()
Dim WsPlan As Worksheet
Dim i As Integer

If TypeName(Selection) <> "Range" Then
MsgBox "A folha deve estar ativa para adicionar nova folha!", vbCritical
Exit Sub
End If

Application.ScreenUpdating = False

i = Worksheets.Count
ActiveSheet.Copy After:=Sheets(Sheets.Count)
i = i + 1

Set WsPlan = Worksheets(i)
On Error Resume Next
'usando esta linha de códigos copiará somente as fórmulas para nova planilha
WsPlan.Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub


Aprenda Aplicativo Microsoft Excel VBA - SaberExcel

Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, pergunta se voce deseja ou não inserir uma planilha personalizada com o nome formatado com data e hora atual

Sub Adicionar_planilha_com_dia_hora()

Dim Resposta As VbMsgBoxResult
Dim sht As Worksheet
Resposta = MsgBox("Deseja inserir nova planilha com o nome da data e hora atual?" _
, vbQuestion + vbYesNoCancel)
If Resposta = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-dd-mmm-yyyy_hhmmss")
ElseIf Resposta = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Planilha inserida com sucessso!! [ " & ActiveSheet.Name & "]", vbInformation, "http://www.saberexcel.com"
End Sub

Aplicativo Microsoft Excel VBA --(SaberExcel)--