Boa noite!!

Se você usar a pesquisa encontrará assuntos que abordam o oque precisa.

Tente usar o nome da guia em uma célula.

ActiveSheet.Name = Range("a3").Value

Att

Para um melhor entendimento: O arquivo "Fevereiro.xls" é aberto e contem uma aba para cada cliente? e o objetivo e copiar os dados mensais para as planilhas individuais?
Se for pode ser testado:

Sub Copiar_Dados()
Dim Mes As String, nS As String, nCp As String
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet
Mes = ThisWorkbook.Name
'Arquivo Destino, abrimos primeiro
'Ajuste o caminho do mesmo

For Each ws In Sheets
nS = ws.Name
nCp = nS & ".xls"
Workbooks.Open Filename:="C:Documents and SettingsAdministradorDesktop" & nCp

'Arquivos e Abas de Origem e Destino
Set wsOrigem = Workbooks(Mes).Worksheets(nS)
Set wsDestino = Workbooks(nCp).Worksheets(Mes)

With wsOrigem
.Range("a1:e200").Copy Destination:=wsDestino.Range("a1")
End With

'Fecha o Arquivo Destino e Salva
Workbooks("Cliente A.xls").Close SaveChanges:=True


MsgBox "Introdução de Dados Concluída " & nS
Next
End Sub

Boa noite Reinaldo,

Essa macro que eu postei funciona, mas eu tenho que todo mês que entrar no VBA e mudar manualmente o mês:

Set wsOrigem = Workbooks("Fevereiro.xls").Worksheets("Cliente A")
Set wsDestino = Workbooks("Cliente A.xls").Worksheets("Fevereiro")

Vou tentar explicar melhor o que eu preciso.
Eu tenho uma planilha do mês corrente com todos os lançamentos do mês de todos os clientes,
dentro dessa planilha eu rodo uma macro que separa os lançamentos por cliente.
Eu tenho uma outra planilha para cada cliente e dentro dessa planilha eu tenho uma aba para cada mês.

Por exemplo:
Preciso que copie a aba do cliente A do mês corrente e cole na planilha do cliente A na aba do mês corrente

Grato
Ado

Boa noite Reinaldo,

Rodei a macro acima mas deu o seguinte erro:

Erro em tempo de execução '9':
Subscrito fora do intervalo

Segue em anexo as planilhas.

Grato
Ado

Ado mais uma pergunta, a macro e executada à partir do Arquivo do mes (nesse caso Fevereiro), ou está fora(em um arquivo diferente)dos arquivos envolvidos?

Bom considerei que a rotina está sendo executada a partir do arquivo chamado Fevereiro
Poderia ser assim:

Sub Copiar_Dados()

Dim wsOr As Workbook
Dim wsDestino As Worksheet, wsOrigem As Worksheet
Dim nPlan As String, nArq As String, nMes As String
'Pega o nome do mes
nMes = VBA.Format(Date, "mmmm")
'acrescenta a extensão
nArq = nMes & ".xls"

'Arquivos de Origem
Set wsOr = Workbooks(nArq)

'Verifica cada planilha do arquivo de Origem
For Each wS In wsOr.Sheets
'Pega o nome do Cliente e acrescenta a extensão
nPlan = wS.Name & ".xls"
'Determina a planilha de origem (Arquivo e Planilha)
Set wsOrigem = wsOr.Worksheets(wS.Name)
'Abre o arquivo destino (aqui considerando que está no mesmo diretório do arquivo Origem)
Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & nPlan
'"C:Documents and SettingsAdministradorDesktop" & nPlan
'Determina o arquivo e planilha de destino
Set wsDestino = Workbooks(nPlan).Worksheets(nMes)

'Copia os dados da origem para o destino
With wsOrigem
.Range("a1:e200").Copy Destination:=wsDestino.Range("a1")
End With

'Fecha o Arquivo Destino e Salva
Workbooks(nPlan).Close SaveChanges:=True
MsgBox "Introdução de Dados Concluída " & wS.Name
Next
End Sub

Boa tarde Reinaldo,

Obrigado pela ajuda, respondendo a sua pergunta a macro é executada à partir do arquivo mês.
Copiei e rodei a macro que você postou e continua dando o mesmo erro: Subscrito fora do intervalo, não sei se não estou fazendo alguma coisa errada.

Grato
Ado

Esse erro dá-se normalmente por não encontrar o nome da planilha, é preciso que o nome esteja de acordo com o mes, e o caminho tb seja o considerado.
Verifique se o nome da planilha corresponde a:

'Pega o nome do mes
nMes = VBA.Format(Date, "mmmm")
'acrescenta a extensão
nArq = nMes & ".xls"

O retorno deve ser : "março.xls"
Considerei como caminho o mesmo local onde a planilha "mes" esteja salvo.

"'Abre o arquivo destino (aqui considerando que está no mesmo diretório do arquivo Origem)
Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & nPlan"

Boa noite Reinaldo,

Desculpe pela demora na resposta, testei e deu certo.
Eu tenho mais uma duvida, se eu tiver o arquivo do mês em uma pasta e o arquivo dos clientes em outra pasta?
Muito obrigado pela ajuda.
Ado