This should do the trick:

Sub test()
Dim rng As Range
Worksheets("Sheet1").Range("A2:D2").Select
Set rng = Selection.Find(What:=Application.min(Selection)
Lookat:=xlWhole, LookIn:=xlValues)
Range("E2") = rng.Offset(-1, 0)
End Sub

Alseikha

--
Alseikha
-----------------------------------------------------------------------
Alseikhan's Profile: http://www.excelforum.com/member.php...fo&userid=3236
View this thread: http://www.excelforum.com/showthread.php?threadid=52502