Try this UDF

Function maxb(r As Range)
Dim s As Range
b = Application.WorksheetFunction.Max(r)
For Each s In r
If s.Value = b Then
maxb = s.Address
Exit For
End If
Next s
End Function


On Oct 23, 1:35*pm, Are wrote:
How to know address cell if there are max value
exm :

* * * *A * * B * * C * *
1 * *10 * 11 * 15

2 * *12 * 16 * 15

3 * *13 * 15 * 15

result B2

thanks,