Function Adr(C1 As Range, C2 As Range, C3 As Range) As Variant
Dim X As Range
Application.Volatile
For Each X In Union(C1, C2, C3)
If X = Application.Max(C1, C2, C3) Then
Adr = X.Address
On Error Resume Next
Adr = X.Name.Name
On Error GoTo 0
Exit For
End If
Next X
End Function
=Adr(A1;B5;C8)