se a matriz tem duas dimensões seu loop precisa ter dois contadores

a matriz é:
pivotnames(0,0) = "qquer coisa"
pivotnames(0,1) = "outra coisa"

Fez sentido ? É como linhas e colunas... cada linha tem duas colunas, vc assim como está fazendo, preenche o item 0,0 depois o item 1,1 e dps o 2,2, que não existe conforme sua descrição...

então fernando, na verdade eu quero gravar um nome em uma dimensão, e o próximo nome na outra dimensão...

Por exemplo

array(0,0) = tabela1, tabela2
array (1,1) = tabela3 tabela4

Isso vc deixou claro...
o loop seria algo assim:
for x = 1 to qtdTDs
for y = 1 to qtdDimensoes
matriz(x,y) = "TD" & x & y
next y
next x

Vc ainda está insistindo em usar o cont nas duas dimensoes.... entenda, sua matriz é bidimensional. Ela tem duas dimensoes. a primeira dimensão vai variar conforme a qtd de tabelas dinamicas, mas a segunda dimensao só possui 2 itens.
aparentemente, seu problema não é no conceito, mas na execução. Colocar um item nas multiplas dimensoes da planilha é assim com eu disse, não como vc disse.

Fernando, entendi o que você quis dizer, porém como eu posso adaptar isso em um foreach?

Fernando, consegui resolver o meu problema, porém a sua dica foi muito útil para que eu conseguisse isso, muito obrigado.

Eis o código que usei:
cont= 0
contx = 0
For Each PT In Sheets("Volumetria").PivotTables
If cont = 0 Then
pivotNames(cont, contx) = PT.name
contx = contx + 1
End If
If contx = 30 Then cont = cont + 1 'o meu array tem 30 dimensões
Next