ok Stefis method works, now I need to name this workshhet after value in
selected cell

sorry not to have written it in the first post

"Stefi" wrote:

> Hi,
>
> Try this:
>
> Cells.Find(What:="descr1", After:=ActiveCell, LookIn:=xlValues, LookAt _
> :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
> MatchCase:= _
> False).Activate
> Cells(ActiveCell.Row + 2, ActiveCell.Column).Select
>
> Regards,
> Stefi
>
> „shark102” ezt *rta:
>
> > hello
> >
> > my second post here, still learning VBA.
> > My question is pretty much included in the subject.
> > I need to find a cell in worksheet that contains text "descr1" - there is
> > only 1 cell like this in the worksheet - it is in a header, and make cell 2
> > cells below that active
> >
> > any help is greatly appreciated
> >