'
'MÁXIMO DE PERDA SOMENTE NA AGUA QUENTE - ABA AF-PRUM. (RENAN 20/05/2022)
'
Public Function MAXAGUAQUENTE(Referência As Range, Matriz As Range, Fonte As Boolean)
 Application.Volatile

 Dim rCell As Range
 Dim rCor As Long
 Dim rResult As Variant
 
 If Fonte = False Then
 rCor = Referência.Interior.ColorIndex
 For Each rCell In Matriz
 If rCell.Interior.ColorIndex = rCor Then
 rResult = WorksheetFunction.Max(rCell, rResult)
 End If
 Next rCell
 Else
 rCor = Referência.Font.ColorIndex
 For Each rCell In Matriz
 If rCell.Font.ColorIndex = rCor Then
 rResult = WorksheetFunction.Max(rCell, rResult)
 End If
 Next rCell
 End If
 
 
 MAXAGUAQUENTE = rResult
End Function