Function EstEuro(ByVal Rng As Range)
Dim TNF() As String, TVAL(), L As Long, Cel As Range
If Rng.Rows.Count = 1 Then
EstEuro = -(VarType(Rng.Value) = vbCurrency Or Rng.NumberFormat Like "*[[]$€*]*")
Else
TVAL = Rng.Value
ReDim TNF(1 To UBound(TVAL, 1))
For Each Cel In Rng: L = L + 1: TNF(L) = Cel.NumberFormat: Next Cel
For L = 1 To UBound(TVAL, 1): TVAL(L, 1) = -(VarType(TVAL(L, 1)) = vbCurrency Or TNF(L) Like "*[[]$€*]*"): Next L
EstEuro = TVAL: End If
End Function
Function EstDollar(ByVal Rng As Range)
Dim TNF() As String, TVAL(), L As Long, Cel As Range
If Rng.Rows.Count = 1 Then
EstDollar = -(Rng.NumberFormat Like "*[[]$$*]*")
Else
ReDim TVAL(1 To Rng.Rows.Count, 1 To 1)
For Each Cel In Rng: L = L + 1: TVAL(L, 1) = -(Cel.NumberFormat Like "*[[]$$*]*"): Next Cel
EstDollar = TVAL: End If
End Function