Excel VBA Find Method (CTRL + F)

Hi Brian

Thanks for your question

It seems that the find tool is not supported in VBA. However it is easy to do what you say with a simple looping and decision structure. The following seems to work well

Sub Find()





    Dim MyRange As Range

    Dim i As Integer    

    

    Set MyRange = Columns("A:A")

    

    For i = 1 To MyRange.CurrentRegion.Rows.Count    

    

        If MyRange.Cells(i, 1).Value = "Peter" Then

        

            MsgBox "Found it"

            Exit Sub

             

        

        End If    

    

    Next i

    

        Call Subroutine

    

 End Sub 

This simply cycles through each cell in the column looking for a value. If it is found it displays a message box and ends the routine. If it gets to the end with no result it simply calls the sub procedure. I have entered the value as a literal, but this is easily replaced with a variable holding the text box's value.

Hope this helps

Regards

Stephen