Forms VisualBasic Script

Sub find()
    Cells.FindNext
End Sub