From: Eán on
How can I do this using the Command Button?

"Jacob Skaria" wrote:

> Try the below...If you are looking for a whole cell match; then change LookAt
> to xlWhole
>
> Sub Macro()
>
> Dim varFound As Variant, varSearch As Variant
>
> varSearch = InputBox("Find string")
> Set varFound = Cells.Find(varSearch, LookIn:=xlValues, LookAt:=xlPart)
> If Not varFound Is Nothing Then
> varFound.Activate
> End If
>
> End Sub
>
>
> --
> Jacob (MVP - Excel)
>
>
> "Eán" wrote:
>
> > Is there a macro of function I can use to find key words or statements on a
> > worksheet, similat to the Find (goggles) icon?
> >
> > Many thanks.
> >
From: Jacob Skaria on
--Set the Security level to low/medium in (Tools|Macro|Security).
--From workbook launch VBE using short-key Alt+F11.
--From menu 'Insert' a module and paste the below code.
--Get back to Workbook.

From menu View>Toolbars>Forms drag a button control to the worksheet. and
select the macro to be assigned....

--
Jacob (MVP - Excel)


"Eán" wrote:

> How can I do this using the Command Button?
>
> "Jacob Skaria" wrote:
>
> > Try the below...If you are looking for a whole cell match; then change LookAt
> > to xlWhole
> >
> > Sub Macro()
> >
> > Dim varFound As Variant, varSearch As Variant
> >
> > varSearch = InputBox("Find string")
> > Set varFound = Cells.Find(varSearch, LookIn:=xlValues, LookAt:=xlPart)
> > If Not varFound Is Nothing Then
> > varFound.Activate
> > End If
> >
> > End Sub
> >
> >
> > --
> > Jacob (MVP - Excel)
> >
> >
> > "Eán" wrote:
> >
> > > Is there a macro of function I can use to find key words or statements on a
> > > worksheet, similat to the Find (goggles) icon?
> > >
> > > Many thanks.
> > >