Armazenar texto de uma célula em um Array

Bom dia,


Tenho algumas células com textos, exemplo:
Adaptador para caixa d´água de concreto 150mm FG rosca BSP - 2"

Gostaria de armazenar cada texto de cada célula numa posição de um array:
Dim arra(941) As String

arra(a) = Cells(linha, 2).Text

Mas o valor armazenado fica apenas: "".
Alguém poderia me ajudar?

Bom dia!!

Poste seu arquivo modelo!

Att

Caro Alexandre,


Eu em vez de armazenar cada linha da minha planilha padrão copiei a mesma para a planilha criada dispensando a utilização de array que seria muito grande também. Simplesmente fiz assim:

'Copia Modelos para a nova Pasta de Trabalho
ThisWorkbook.Sheets("INC").Copy Before:=oWks.Sheets(1)


Muito obrigado mesmo assim pela ajuda!