Criar nova planilha ativa

Objetivo: Criar nova planilha colando os dados com formatação e dados, sem considerar as fórmulas em uma nova planilha.

O procedimento VBA deste post serve para copiar a planilha ativa e colar somente valores e formatação em uma nova planilha, podendo assim esta nova planilha ser enviada por email, etc.

Abaixo o código comentado:

Sub lsCopiaPlanilhaAtiva()
    Dim lPlanilha As String
    Dim lNome As String
    Dim lNovaPlanilha As String

    'Nome do arquivo aberto
    lPlanilha = ActiveWorkbook.Name
    'Nome da planilha aberta
    lNome = ActiveSheet.Name

    'Copia as planilhas
    Sheets(lNome).Select
    Sheets(lNome).Copy

    'Nome da nova planiliha
    lNovaPlanilha = ActiveWorkbook.Name

    'Copia e cola os dados da nova planilha
    Windows(lPlanilha).Activate
    Cells.Select
    Selection.Copy
    Windows(lNovaPlanilha).Activate
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
    Windows(lPlanilha).Activate
    Range("A1").Select
End Sub

Baixe a planilha

Abraço

Marcos Rieper