I got it, no more help needed, thanks everybody for the effort.

"shark102" wrote:

> 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
> > >