VBA code find text and move cursor to that location

[m242]

Hi specialists,

Goal:
From a pushbutton I try to search for the word 'AMS' in a specific colomn and if found, move the cursor to that specific cell where this word is found.

My easy way so far works:
With 'application.goto' I go perfectly to a cell which I know it contains that word...but if I insert a row (or more), my cursur moves up...

So if anybody can help me in the right direction I would be very thankful!

 

[mikerickson]

This found "fish" in column B.

Range("B:B").Find(What:="fish", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate

 

[davesexcel]

Sub Find_AMS()
    Dim FndRng As Range, sh As Worksheet, s As String

    Set sh = ActiveSheet
    s = Application.InputBox("What to find?")

    With sh
        Set FndRng = .Cells.Find(s, LookIn:=xlValues)
        If Not FndRng Is Nothing Then
            FndRng.Select
        Else
            MsgBox s & " is not found!"
        End If
    End With
End Sub

 

[mikerickson]

Is it possible that we've overlooked pressing Ctrl-F.

 

[m242]

Thanks a lot for the swift reply to both!

Dave's VBA works perfectly but I have already a pushbutton called 'AMS' so the inputBox should be removed...
Trying to adjust it now.

 

[m242]

Fixed, thanks!!!