VBA Macro to open Find box and search multiple worksheets

[Sifuevs]

Hi all,
great to be here in the community ad thanks for having me.
I am basically wanting some VBA code that can be used as a macro to open a find box, then input either a partial text or partial number. This in turn then searches specific worksheets (example worksheets: MON01, MON02) of which I have a lot, and then returns the results and what worksheet they are on.
I am by no way an advanced Excel individual so thank you in advance for your assistance and patience.

Thank you

 

[Richard U]

There Is no way to do this through VBA,

The best thing you can do is open the dialogue to the option to select.

Sub ShowFind(MyValue)
    ActiveSheet.Cells.Find What:=MyValue, LookAt:=xlpart
    Application.CommandBars("Worksheet Menu Bar").FindControl( _
      ID:=1849, recursive:=True).Execute
End Sub

and then have your code feed the Myvalue from somewhere

sub MySub

dim str_Value as string

str_Value = "Myval"

call Showfind(str_Value)

end sub

The person would then need to pull down "Workbooks" from the options menu, then click on find all