rangels,

Boa tarde!

Não dá para examinar somente com pedaços de códigos!! É necessário você anexar seu arquivo aqui no fórum, compactado com .ZIP. Será necessário rodar, depurar e ver onde o erro ocorre. Também é necessário examinar outras coisas, como declaração de variáveis, etc. etc. e etc.

Entendi.

Bom copiei o código para postar abaixo. È Desta forma que o código está.

Alguém teria alguma idéia do que deve ser feito?

Public Sub Aplicar_Valores1()


' Variaveis que pegam os dados da Linha Inicial e Final
Dim Lin_Inic, Lin_Fin As Integer

Dim NomeCamp(8) As String
Dim Cont As Single
Dim Nome As String


' Declaração das Variáveis que recebem o Valor a ser alocado do fundo
Dim Fundo1_Alocado As Currency, Fundo2_Alocado, Fundo3_Alocado, Fundo4_Alocado As Currency

Dim Fundo1_Data As Date, Fundo2_Data As Date, Fundo3_Data As Date, Fundo4_Data As Date

'Declaração das variáveis que recebem o nome do Fundo
Dim Fundo1_Nome, Fundo2_Nome, Fundo3_Nome, Fundo4_Nome As String

' Variável que recebe o Valor selecionado na Msgbox
Dim Resp As Integer



'Insere nomes dos campos no vetor
'Prototipo dos nomes do campos da tabela
NomeCamp(0) = "Fundo"
NomeCamp(1) = "Alocação %"
NomeCamp(2) = "Val_Alocar"
NomeCamp(3) = "Data_Aplicação"
NomeCamp(4) = "Val_Alocado"
NomeCamp(5) = "Rendimento_Br"
NomeCamp(6) = "Montante_Br"
NomeCamp(7) = "IR_Lucro"
NomeCamp(8) = "Montante_Liq"


' Desabilita a atualização de tela
' ao rodar os comandos
' deixa a execução mais rápida
Application.ScreenUpdating = True


Worksheets("Sheet3").Activate

Range("A14").Activate
    


For Cont = 0 To 8
   
    
    '--------------------------------------
    'ActiveCell.Offset(0, 1).Activate
    'ActiveCell.Name = NomeCamp(1)
    '--------------------------------------
    
    '----------------------
     ActiveSheet.Range(Cells(14, 1 + Cont), Cells(14, 1 + Cont)).Activate
    'ActiveSheet.Range(Range(Cells(14, 1 + Cont), Cells(14, 1 + Cont)).Address).Name = NomeCamp(1)
    '----------------------
   
     
     Cells(14, Cont + 1).Name = NomeCamp(Cont)

     MsgBox Cont
       
       
    ' Range(Cells(14, 1 + Cont), Cells(14, 1 + Cont)).Name = NomeCamp(Cont)
           
     
    'If ActiveCell.Value <> Empty Then
      
        Debug.Print NomeCamp(Cont)
        'ActiveCell.Offset(0, 1).Name = NomeCamp(1)
        'ActiveCell.Name = NomeCamp(Cont + 1)
        
                     
    'End If

        

Next

End sub

A mensagem é referente ao nome atribuído em "NomeCamp(1) = "Alocação %"", o excel não aceita caracteres especiais em vetores e em algumas outras situações, elimine o simbolo de "porcentagem" e tambem não utilize "espaço".
Faça o teste e veja se é isto.

Tem de ficar assim :
NomeCamp(1) = "Alocação"

[]s

Putz, Pqp...

Jamais imaginaria uma situação dessa. Perguntei pois estava desconfiado de ser uma "limitação técnica" que só alguém que viu algo parecido descobriria. Já programei em outras linguagens e não lembro de algo desse tipo. Deve haver. Enfim,

Fico muito agradecido, Mauro. Foi de extrema valia seu post. Estou estudando VBA, e vou melhorar meu código. Esse pequeno começo era só um teste em que fiquei enroscado, sem saber o porquê. Realmente deve-se evitar alguns caracteres em variáveis pra evitar essa porquera.

Testei e foi que nem água.

Desejo a todos , uma boa sorte aqui no fórum.

Abc.