Error code: 0x800200009

Falta definir a letra da célula

Como tem -> 1:1

Como Deve ser -> A1:B1 (por exemplo)

Desculpe Baltazar, não entendi sua colocação.

Tem que ter a letra da célula

Algo assim ...

Código:

chFolha:Range("A" + string(w-linha) + ":" + "B" + string(w-linha)):MergeCells = True.

Ok Baltazar, funcionou, muito obrigado.

Mais uma pergunta, quero fazer, ainda no excel, uma quebra de pagina, onde a cada 44 linhas deve estar a quebra, como faço isso?
Aguado sua ajuda.

Nunca fiz uma quebra de linha no Excel.

Segue manual em VBA para fazer a quebra.

http://msdn.microsoft.com/en-us/library/aa174230(v=office.11).aspx

Para fazer a cada 44 linhas deve criar um contador. Sempre que atinge 44 linhas faz a quebra de linha e o reset ao contador.

Meu caro, faz um contador!

Código:

DEF VAR vContador AS INT.

/* No Seu Código.. Incrementa o Contador Junto com o vLinha...*/

ASSIGN vLinha       = vLinha + 1
            vContador = vContador + 1.

IF vContador = 44 THEN DO:

/* Aqui ele Seta a quebra de página */
chWorksheet:HPageBreaks:Add(chWorksheet:Range("A" + STRING(vLinha))). 
  
/* Zera ele a cada 44 Linhas */
ASSIGN vContador = 0.

END.

Deu pra Sacar?

Um Grande Abraço.
Eriuton Charles