Remove o nome do arquivo do endereço da célula

Question

Eu tenho esta fórmula:

=IFERROR(CELL
           ("address",
            INDEX(
              INDIRECT($Q61),
              SUMPRODUCT(
                (INDIRECT($O$5)=$B$1)*(INDIRECT($O$6)=$B$2)*
                (INDIRECT($O$3)=$B$3)*(INDIRECT($O$7)=B$4)*ROW(INDIRECT($O$8))
              )-5
            )
           ),""
         )

que retorna um endereço de célula:

'[CILT Audit Report - 2018 Week 17.xlsm]Data'!$AO$152

Como truncar o nome do arquivo e o nome da planilha para obter um endereço no formato AO152? Eu usarei esse endereço no VBA para obter o hiperlink para esse endereço.

    

Answer 1

Diga sua fórmula (na célula A1 ) retorna:

'[CILT Audit Report - 2018 Week 17.xlsm]Data'!$AO$152

No VBA:

Sub GetAddress()
    Dim s As String, arr
    s = Range("A1").Value
    arr = Split(s, "!")
    MsgBox Replace(arr(1), "$", "")
End Sub