So here's my search to a single cell
Dim sheetName As String
sheetName = ActiveSheet.Name
Dim find_criteria As Range
Set find_criteria
Worksheets(sheetName).Range(Selection).Find(What:= "<",
Lookat:=xlPart, LookIn:=xlFormula, MatchCase:=False)

I keep getting subscript out of range.

Any ideas?

Thanks,

Chri

--
cbh3571
-----------------------------------------------------------------------
cbh35711's Profile: http://www.excelforum.com/member.php...fo&userid=3027
View this thread: http://www.excelforum.com/showthread.php?threadid=52961