Detect cell notation with formula or Power Query

pkogels_acsi_eu 

No problem! Please replace the UDF with the following one.

Function getCurrencySymbol(AmtCell As Range) As String
Dim Matches As Object

With CreateObject("VBScript.RegExp")
    .Global = False
    .Pattern = "General ""([A-Z]{3})"""
    
    If .test(AmtCell.NumberFormat) Then
        Set Matches = .Execute(AmtCell.NumberFormat)
        getCurrencySymbol = Matches(0).SubMatches(0)
    Else
        getCurrencySymbol = "EUR"
    End If
End With
End Function

If that takes care of your question, please accept the post with the proposed solution as a Best Response to mark your question as Solved.