Re: select method of range class fails

sorry to say, but that didn't work either...



"Don Guillett" <donaldb@xxxxxxx> wrote in message
news:OYrjw$pSFHA.3184@xxxxxxxxxxxxxxxxxxxxxxx
> Mark
>
> Sub cbGenerateIssue_Click()
> Sheets("Issue worksheet").Copy Before:=Sheets(1).Name = "1st Issue"
>
> with sheets("1st Issue")
> .Shapes("cbReformat").Delete
> .Shapes("cbGenerateIssue").Delete
> 'you shouldn't need to select but you don't say what is next
> .select
> .Rows("5:7").Select
> end with
>
> --
> Don Guillett
> SalesAid Software
> donaldb@xxxxxxx
> "mark kubicki" <MK@xxxxxxxxxxxxxxxxxxx> wrote in message
> news:eLVnFwpSFHA.1040@xxxxxxxxxxxxxxxxxxxxxxx
> > select method of range class fails (AUGHHH!!!)
> > *** is unprotected
> > *** has a control button "cbGenerateIssue"
> > code had been created by recording a macro (where it worked...)
> > select fails even if control button , which calls the code, has not yet
> been
> > deleted
> >
> >
> > Private Sub cbGenerateIssue_Click()
> > Sheets("Issue worksheet").Select
> > Sheets("Issue worksheet").Copy Before:=Sheets(1)
> > Sheets("Issue worksheet (2)").Select
> > Sheets("Issue worksheet (2)").Name = "1st Issue"
> > Active***.Shapes("cbReformat").Select
> > Selection.Delete
> > Active***.Shapes("cbGenerateIssue").Select
> > Selection.Delete
> > ' --------> this next line fails (or any variation of it)
> > Rows("5:7").Select
> >
> >
> >
> > had tried some variations:
> > ...Sheets("1st Issue).Rows("5...
> > ...put the select into a function
> > ... moved the calling control deletion to after select...
> > nothing
> >
> > thanks in advance,
> > mark
> >
> >
>
>


.