Este fórum está sendo desativado

[maquisuelsolidade]

Boa noite!

Criei uma macro para copiar uma aba x vezes. gostaria de quando eu clicar no botão da macro ele além de copiar renomeasse as abas de acordo com uma lista que tenho (lista abas).

Por exemplo:
a primeira aba copiada receberá o nome que está na célula L3
a segunda aba copiada receberá o nome que está na célula L4....... e assim por diante. qual seria este comando?

[alexandrevba]

Boa tarde!!

Veja se ajuda.

Código: Selecionar todos

Sub AleVBA_3345()
    Dim MyCell As Range, MyRange As Range
    
    Set MyRange = Sheets("Plan1").Range("L3")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))

    For Each MyCell In MyRange
        Sheets.Add After:=Sheets(Sheets.Count) 'cria uma nova guia
        Sheets(Sheets.Count).Name = MyCell.Value ' Renomeia as guias
    Next MyCell
End Sub

Att