Preciso criar uma rotina que transfira os dados de uma MATRIZ para outra idêntica.

Crio várias matrizes com a mesma estrutura sendo cada uma com nome diferente, e queria copiar uma determinada para uma com um nome padrão.

Conforme a situação é invocado a matriz correspondente, no fim a rotina ficou imensa para saber qual a matriz que se quer consultar. Copiando a matriz para a que tem um nome padrão a rotina fica mais enxuta.

exemplo

Dim MTZ_p (1 To 1000, 1 To 5) As String 

Dim MTZ_1 (1 To 1000, 1 To 5) As String 

Dim MTZ_2 (1 To 1000, 1 To 5) As String

Do Until Sheets("ABA1").Cells(xLin, 1).Value = ""

      MTZ_1(i,1) = Sheets("ABA1").Cells(Lin, 1).Value

...

Do Until Sheets("ABA2").Cells(xLin, 1).Value = ""

      MTZ_2(i,1) = Sheets("ABA2").Cells(Lin, 1).Value

...

IF SITUAÇÃO = 1 THEN

      MTZ_P = MTZ_1

ELSE

      MTZ_P = MTZ_2

END IF

FOR i = 1 TO 1000

   IF MTZ_P(i,1) = "XYZ" THEN

...