Re: select method of range class fails

Tech-Archive recommends: Fix windows errors by optimizing your registry

try it this way

Sub cbGenerateIssue_Click()
Sheets("Issue worksheet").Copy Before:=Sheets(1)
with active***
.Name = "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:u0j4ZLqSFHA.3840@xxxxxxxxxxxxxxxxxxxxxxx
> 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
> > >
> > >
> >
> >
>
>


.

Quantcast