You can use the worksheet function max and then search for the value
using Find like this


Set MyRange = Range("a1:a100")
MaxVal = worksheetfunction.max(MyRange)
Set C = MyRange.find(what:=MaxVal,lookin:=xlvalues,lookat: =xlwhole)
AdjacentValue = C.offset(0,1)


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=167026

Microsoft Office Help