Para capturar o cliente em cada B4 faça a seguinte macro:

Sub Macro1()
ActiveSheet.Name = Range("b4")
End Sub

Mas vc pode uniformizar as estruturas (coluna A das Planilhas) com a junção das abas com a tecla Shift pressionada (o que é feita na primeira vai pras outras).

Em suma, porque vc não coloca o seu arquivo completo com as quase 1000 colunas (omita ou renomeie registros se forem sigilosos). Da outra vez te disse que dá pra fazer sem macro mas por aqui vc vai encontrar em VBA.

Qq coisa fale.

Abs,

Boa Tarde Pessoal,

Criei esse topico na seção de formulas mas me orientaram a colocar aqui na seção de VBA.

Eu tenho uma planilha de receitas e custos com muitos clientes na mesma aba e preciso separar todos eles, cada uma em uma Aba ou Pasta de trabalho diferente, no exemplo anexo estou colocando a primeira aba com 4 os clientes e mais duas abas de como deveria ficar cada cliente.

Os 4 clientes são só como exemplo, na verdade tenho uns 60-70 clientes.
Hoje meu trabalho é criar 60 a 70 pastas de trabalho, colar a coluna A em todas as pastas e colar as demais colunas de acordo com o cliente sendo que na linha 4 tenho a "referência" que é o nome do cliente, assim na pasta de trabalho 1 ficaria o "cliente A" com as colunas: (A;B;C;D;E;F;G;H;I;J;K;L;M;N) na pasta de trabalho 2 ficaria o "cliente B"as colunas: (A;O;P;Q;R;S;T;U;V;X;Z) e assim por diante... sendo que dependendo do cliente tem mais ou menos colunas por conta do numero de meses que ele já é nosso cliente.

Esse trabalho hoje é bem manual no Ctrl C, Ctrl V... queria ver se existe um jeito de automatizar.
Vlw

feito, testado e funcionando.
mas se, uma coluna estiver como "CLIENTE A" , a outra tiver como "CLIENTE a" ou "CLIENTE A " , vai dar erro.

Sub Macro1()
Sheets("BASE").Select
nomeUltima = "BASE"
Range("b4").Select
Do
If nomeUltima <> ActiveCell Then
Range("a:a").Copy
Sheets.Add.Name = ActiveCell
Range("a:a").PasteSpecial
ActiveSheet.Move after:=Worksheets(nomeUltima)
ActiveCell.Offset(0, 1).Select
Sheets("BASE").Select
nomeUltima = ActiveCell
End If
ActiveCell.EntireColumn.Copy
Sheets(nomeUltima).Select
ActiveCell.PasteSpecial
ActiveCell.Offset(0, 1).Select
Sheets("BASE").Select
ActiveCell.Offset(0, 1).Select
Loop While ActiveCell <> ""
End Sub

se achou legal, clica em curtir, joinha, mãozinha, no canto superior direito deste quadro.

[]s
Rubens

Nikyserv era exatamente isso que eu tava precisando!
Muito bom mesmo, legal também que deu pra dar uma estudada nos comandos e talvez consiga fazer algumas alterações pra outras atividades similiares.

Showw!