Este fórum está sendo desativado

[edumanilha]

Pessoal, boa noite! Estou editando uma planilha e ela tem 3 abas...A primeira colo o conteúdo, e a macro então separa em partes e distribui nas células da segunda, no caso adicionei a terceira e gostaria de na hora de salvar o arquivo à parte, ele copiasse tbm essa terceira planilha...O código está assim:

Código: Selecionar todos

            Plan2.Copy
            Home_usuario = Environ("HOMEPATH")
            ActiveWorkbook.SaveAs _
            Filename:=Home_usuario & "\Desktop\etc ".xlsx"
            ActiveWorkbook.Worksheets.Select
            Range("A1:BG1").Interior.Color = RGB(216, 228, 188)
            Range("D1").Interior.Color = RGB(255, 255, 0)
            Range("L1:P1").Interior.Color = RGB(197, 217, 241)
            Range("U1,X1,AA1,AD1,AG1,AJ1,AM1,AP1,AS1,AV1,AY1").Interior.Color = RGB(196, 215, 155)
            Range("BH1:BK1").Interior.Color = RGB(197, 217, 241)
            ActiveWorkbook.Save
            ActiveWorkbook.Close
            Plan2.Range("A2:BO50").ClearContents
            MsgBox "O arquivo foi salvo em C:" & Home_usuario & _
            "\Desktop\etc".xlsx", vbOKOnly, "IDCROSS"
            Unload Me