Here is the code:

Function Find_Min_Rate()
Dim Cell As Range
WS2.Activate
Set Cell = Range("Master_Rates").Find(what:=MinRate, LookIn:=xlValues)
Cell.Select
MsgBox "Cell address is " & Cell.Address(RowAbsolute:=False,
ColumnAbsolute:=False)

End Function

It was 'sort of' working for a while. My range contains the values 6.000
thru 8.000 in increments of .125. If I searched for 6.125, I could
locate the cell. If I searched for searched for 7 it would find 6.750. I
think I can work around that (though I will take any suggestions.

HOWEVER - Some gremlin seems to have invaded by computer. Now it doesn't
seem to find a match whatever I do?

HELP.

Betsy

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!