Sub test()
Dim x As Range
Set x = Range("A1:A6").Find(Application.WorksheetFunction.Min(Range("A1:A6")))
End Sub
Dim x As Range
Set x = Range("A1:A6").Find(Format(Application.WorksheetFunction.Min(Range("A1:A6")), _
"0.00%"), , xlValues, xlWhole)