Try this:

Sub test()
Dim i As Range, rng As Range
Dim lRow As Long, mx As Double
lRow = Range("K65536").End(xlUp).Row
Set rng = Range(Cells(1, 11), Cells(lRow, 11))
mx = Application.WorksheetFunction.Max(rng)
For Each i In rng
If i = mx Then
Exit For
End If
Next i
MsgBox i.Offset(, -8)
End Sub

--
Dan

On Dec 18, 3:22 pm, millwalll
wrote:
Hi all I have some Data in Coloum K I have Payment amount. I want to Search
this and find the higest amount. Then whatever filed the higest amount is in
go across to coloum c and take the value of that field I have some idea how
it may go but just wanted to get better idear any help be great thanks