ENCERRAR PLANILHA QUE FOI EXPORTADA

   Sub ExportarPlanilha()
Dim CurrentSheet As Worksheet

Application.ScreenUpdating = False

        [ô]Nome na Planilha Ativa em B2
        nomeB2 = CStr(ActiveSheet.Range([Ô]B2[Ô]).Value)

        Set CurrentSheet = ActiveSheet

        On Error Resume Next

        [ô]copia todas as células da planilha ativa
        CurrentSheet.Cells.Copy

        [ô]Cria a Nova PASTA (ARQUIVO)
        Set wkb = Workbooks.Add

        [ô]cola somente os valores na planilha Ativa da nova Pasta,
        [ô]sem formulas e mantenndo a formatação
        With ActiveSheet.Range([Ô]A1[Ô])
          .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
          .PasteSpecial Paste:=xlFormats
        End With

        Application.CutCopyMode = False

        [ô]Define os Novos Nomes - Planilha(ABA) e Pasta(Arquivo)
        novoNome = nomeB2

        [ô]Renomeia a planilha nova com
        [ô]o Nome que estava em B2
        With ActiveSheet
            .Name = novoNome
            .Range([Ô]A1[Ô]).Select
        End With

        Range([Ô]A1[Ô]).Select

        [ô]Enibe a mensagem se a pasta já existir
        [ô]Com essa instrução a Pasta será substiutida sem questionamento
        Application.DisplayAlerts = False

        [ô]Salva a Nova Pasta no Diretorio abaixo com o mesmo Nome
        [ô]Alterem o mesmo conforme o endereço que querem
         wkb.SaveAs ThisWorkbook.Path & [Ô]\[Ô] & novoNome & [Ô].xls[Ô]
        

End Sub