Continuing a Search with the FindNext Method and FindPrevious Method
Sub find() Cells.FindNext End Sub