I would like to modify the script below to accommodate being able to find incrementally all instances that meet the search criteria. As I won't know up front which instance is the actual instance being sought, I need for the script to find the first instance, give me the option to select the found term OR click a "Find Next" option, etc., until the desired instance is found. I don't really care whether the script cycles me through the instances one at a time or whether it brings up a list of all found instances and allows me to select the desired instance, thereby taking me to the desired cell.
Thanks,
Opv
[vba]
Sub findEnglish()
'Original author unknown
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter English Search term:")
If Trim(FindString) <> "" Then
With Worksheets("Dictionary").Range("A4:A5000")
Set Rng = .Find(What:="*" & FindString & "*", _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then Application.GoTo Rng, True
''''''''''''' MY CHANGES ''''''''''
If ActiveCell.Column = 2 Then
ActiveCell.Offset(0, -1).Select
End If
''''''''''''' END MY CHANGES ''''''''
End With
End If
End Sub
[/vba]