Normalmente esse erro é devido a uma inconsistência na formula, ou seja ao tentar "repassar" a formula para a planilha e encontrado um erro.
Tentar ler a formula da maneira que está é muito dificil. Poste pelo menos (já que disse que funciona quando escrito na célula), como fica a mesma nessa celula.
Tambem de uma availada na referencia do MATCH(...,Plan1!C,0; provavelmente seja ....Plan1!C:C,...

O print ajuda?

Bom dia!!!

Cole a sua formula dentro da chave

minha formula

, para que possamos ajuda-lo!

Att

O problema pode ser na quebra da formula no VBA?

Na célula:

=SE(EXT.TEXTO(ÍNDICE(Plan1!A:A;CORRESP(Plan5!C2;Plan1!A:A;0)+4);1;11)="REFERENCIA ";DIREITA(ÍNDICE(Plan1!A:A;CORRESP(Plan5!C2;Plan1!A:A;0)+4);NÚM.CARACT(ÍNDICE(Plan1!A:A;CORRESP(Plan5!C2;Plan1!A:A;0)+4))-11);SE(EXT.TEXTO(ÍNDICE(Plan1!A:A;CORRESP(Plan5!C2;Plan1!A:A;0)-1);1;8)="KOMATSU ";DIREITA(ÍNDICE(Plan1!A:A;CORRESP(Plan5!C2;Plan1!A:A;0)-1);NÚM.CARACT(ÍNDICE(Plan1!A:A;CORRESP(Plan5!C2;Plan1!A:A;0)-1))-8);ÍNDICE(Plan1!A:A;CORRESP(Plan5!C2;Plan1!A:A;0)-1)))

No VBA:

Sub Macro4()
'
' Macro4 Macro
'

'
       Range("A3").Select
    Selection.FormulaArray = _
        "=IF(MID(INDEX(Plan1!C,MATCH(Plan5!RC[2],Plan1!C,0)+4),1,11)=""REFERENCIA "",RIGHT(INDEX(Plan1!C,MATCH(Plan5!RC[2],Plan1!C,0)+4),LEN(INDEX(Plan1!C,MATCH(Plan5!RC[2],Plan1!C,0)+4))-11),IF(MID(INDEX(Plan1!C,MATCH(Plan5!RC[2],Plan1!C,0)-1),1,8)=""KOMATSU "",RIGHT(INDEX(Plan1!C,MATCH(Plan5!RC[2],Plan1!C,0)-1),LEN(INDEX(Plan1!C,MATCH(Plan5!RC[2],Plan1!C,0)-1))-8),INDEX(" & _
          " Pan1!C,MATCH(Plan5!RC[2],Plan1!C,0)-1)))"
          
End Sub

Anexo uma parte da planilha, talvez ajude.

Bom dia!!

Tente assim.

Sub Macro4()
Range("A3").Formula = "=IF(MID(INDEX(Plan1!A:A,MATCH(Plan5!C2,Plan1!A:A,0)+4),1,11)=""REFERENCIA "",RIGHT(INDEX(Plan1!A:A,MATCH(Plan5!C2,Plan1!A:A,0)+4),LEN(INDEX(Plan1!A:A,MATCH(Plan5!C2,Plan1!A:A,0)+4))-11),IF(MID(INDEX(Plan1!A:A,MATCH(Plan5!C2,Plan1!A:A,0)-1),1,8)=""KOMATSU "",RIGHT(INDEX(Plan1!A:A,MATCH(Plan5!C2,Plan1!A:A,0)-1),LEN(INDEX(Plan1!A:A,MATCH(Plan5!C2,Plan1!A:A,0)-1))-8),INDEX(Plan1!A:A,MATCH(Plan5!C2,Plan1!A:A,0)-1)))"
End Sub

Att

Note que em sua formula, na linha final assumiu Pan1... altere para PLAN1 e veja se funciona

... " Pan1!C,MATCH(Plan5!RC[2],Plan1!C,0)-1)))"

Sim, perfeitamente muito obrigado.

Se importa de falar qual era o problema?