Marc,

One of the solutions could be to loop through all found cells, like (here is the fragment of VFP code that I am using, but you can follow it in VBA with minor changes):

*....
	if .Selection.Find(lcfind, ,xlValues,xlPart, xlByColumns).Activate

		lcaddress=.ActiveCell.Address
		lo=.ActiveCell
		
		DO WHILE .Activesheet.Cells.FindNext(lo).Activate ;
                     AND  .ActiveCell.Address # lcaddress and ;
                                NOT your_condition_goes_here
			
			lo=null
			lo=.ActiveCell
			
		ENDDO
	
	ENDIF
*..........

>Is it possible to set more than one criteria in .Find(What:="") ?