Use search to get the correct value:

Dim Rnge As Range
Dim Hazard As String

Rnge = Worksheets(NAME).Range.Find(SEARCHVALUE, LookIn:=xlValues
LookAt:=xlWhole)

Hazard = Range(Rnge).Offset(y, x).Valu

--
Message posted from http://www.ExcelForum.com