Este fórum está sendo desativado

[Guirezendem]

Bom dia!

Eu tenho uma lista de nomes de centros de custo na coluna B, e preciso abrir uma aba do excel para cada um deles, acho que só da pra fazer usando VBA e não sei....

Alguém pode me ajudar?

Obrigado!!!

[Henrique]

Seu código está quase certo. Retire os caracteres não permitidos em nomes de abas como "/" e execute sua sub que irá funcionar.

[alexandrevba]

Bom dia!!

Se eu entendi, use o código abaixo!

Código: Selecionar todos

Sub AleVBA_836()
     
    Dim ws As Worksheet
    Dim Ki As Range
    Dim ListSh As Range
     
    With Worksheets("Centro de Custos")
        Set ListSh = .Range("B2:B" & .Cells(.Rows.Count, "A").End(xlUp).Row)
    End With
     
    On Error Resume Next
    For Each Ki In ListSh
        If Len(Trim(Ki.Value)) > 0 Then
            If Len(Worksheets(Ki.Value).Name) = 0 Then
                Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Ki.Value
            End If
        End If
    Next Ki
     
End Sub

Att