hi,

I am trying to put together a simple macro to do the following job - so
far I haven't succeeded:

copy active cell value,go to the first worksheet in my spreadsheet,
find the pasted value in there and select the row where it has found
the value.

can anyone help?

Thx.

Tom

Tom,

Sub TomFind()
Dim myVal As Variant
On Error GoTo NotFound
myVal = ActiveCell.Value
Worksheets(1).Activate
Cells.Find(myVal).EntireRow.Select
Exit Sub

NotFound:
MsgBox "That value wasn't found on Worksheet 1"
End Sub

HTH,
Bernie
MS Excel MVP


<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> hi,
>
> I am trying to put together a simple macro to do the following job - so
> far I haven't succeeded:
>
> copy active cell value,go to the first worksheet in my spreadsheet,
> find the pasted value in there and select the row where it has found
> the value.
>
> can anyone help?
>
> Thx.
>
> Tom
>

Bernie,

thanks a lot.

it does the job perfectly and at the same time it's very short and
simple macro.

Cheers.

Tom

Bernie Deitrick wrote:
> Tom,
>
> Sub TomFind()
> Dim myVal As Variant
> On Error GoTo NotFound
> myVal = ActiveCell.Value
> Worksheets(1).Activate
> Cells.Find(myVal).EntireRow.Select
> Exit Sub
>
> NotFound:
> MsgBox "That value wasn't found on Worksheet 1"
> End Sub
>
> HTH,
> Bernie
> MS Excel MVP
>
>
> <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > hi,
> >
> > I am trying to put together a simple macro to do the following job - so
> > far I haven't succeeded:
> >
> > copy active cell value,go to the first worksheet in my spreadsheet,
> > find the pasted value in there and select the row where it has found
> > the value.
> >
> > can anyone help?
> >
> > Thx.
> >
> > Tom
> >