I have some Word Art in say Rows 9-23, I use some Macro code to copy cells
9-23 down to 10 grouped rows below 23, but everytime I run the Macro it also
copies a 'New' Work Art over the existing Art below Row 15. My fear is that
my file size will balloon. My code simply states

Sheets("Starters").Select
Rows("9:23").Select
Selection.Copy
Range("A25").Select
ActiveSheet.Paste
Range("A41").Select
ActiveSheet.Paste

How can I copy Rows 9-23 without the WorkArt also (which is 'floating' over
Rows 14-18)


Thanks

Another possibility which I have tried is to select ALL Wordart between say
Rows 23-300 and delete them. However going to Select Object, selects every
object in the whole worksheet, some of which are Command buttons.

I've also tried creating a Macro to delete the WordArt, however it seems
everytime a WordArt is created it is assigned a unique number, hence you
can't run the macro a second time







"John" <(E-Mail Removed)> wrote in message
news:Eydxd.44194$(E-Mail Removed)...
> I have some Word Art in say Rows 9-23, I use some Macro code to copy cells
> 9-23 down to 10 grouped rows below 23, but everytime I run the Macro it
also
> copies a 'New' Work Art over the existing Art below Row 15. My fear is
that
> my file size will balloon. My code simply states
>
> Sheets("Starters").Select
> Rows("9:23").Select
> Selection.Copy
> Range("A25").Select
> ActiveSheet.Paste
> Range("A41").Select
> ActiveSheet.Paste
>
> How can I copy Rows 9-23 without the WorkArt also (which is 'floating'
over
> Rows 14-18)
>
>
> Thanks
>
>

If there are no other objects you want copied|pasted, maybe you could just use a
couple of pastespecials:

Option Explicit
Sub testme()

Dim fRng As Range
Dim tRng As Range

With Worksheets("starters")
Set fRng = .Rows("9:23")
Set tRng = .Range("a25")
End With

fRng.Copy
tRng.PasteSpecial Paste:=xlPasteFormulas
tRng.PasteSpecial Paste:=xlPasteFormats

End Sub



John wrote:
>
> Another possibility which I have tried is to select ALL Wordart between say
> Rows 23-300 and delete them. However going to Select Object, selects every
> object in the whole worksheet, some of which are Command buttons.
>
> I've also tried creating a Macro to delete the WordArt, however it seems
> everytime a WordArt is created it is assigned a unique number, hence you
> can't run the macro a second time
>
> "John" <(E-Mail Removed)> wrote in message
> news:Eydxd.44194$(E-Mail Removed)...
> > I have some Word Art in say Rows 9-23, I use some Macro code to copy cells
> > 9-23 down to 10 grouped rows below 23, but everytime I run the Macro it
> also
> > copies a 'New' Work Art over the existing Art below Row 15. My fear is
> that
> > my file size will balloon. My code simply states
> >
> > Sheets("Starters").Select
> > Rows("9:23").Select
> > Selection.Copy
> > Range("A25").Select
> > ActiveSheet.Paste
> > Range("A41").Select
> > ActiveSheet.Paste
> >
> > How can I copy Rows 9-23 without the WorkArt also (which is 'floating'
> over
> > Rows 14-18)
> >
> >
> > Thanks
> >
> >

--

Dave Peterson

Thanks Dave

"Dave Peterson" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> If there are no other objects you want copied|pasted, maybe you could just
use a
> couple of pastespecials:
>
> Option Explicit
> Sub testme()
>
> Dim fRng As Range
> Dim tRng As Range
>
> With Worksheets("starters")
> Set fRng = .Rows("9:23")
> Set tRng = .Range("a25")
> End With
>
> fRng.Copy
> tRng.PasteSpecial Paste:=xlPasteFormulas
> tRng.PasteSpecial Paste:=xlPasteFormats
>
> End Sub
>
>
>
> John wrote:
> >
> > Another possibility which I have tried is to select ALL Wordart between
say
> > Rows 23-300 and delete them. However going to Select Object, selects
every
> > object in the whole worksheet, some of which are Command buttons.
> >
> > I've also tried creating a Macro to delete the WordArt, however it seems
> > everytime a WordArt is created it is assigned a unique number, hence you
> > can't run the macro a second time
> >
> > "John" <(E-Mail Removed)> wrote in message
> > news:Eydxd.44194$(E-Mail Removed)...
> > > I have some Word Art in say Rows 9-23, I use some Macro code to copy
cells
> > > 9-23 down to 10 grouped rows below 23, but everytime I run the Macro
it
> > also
> > > copies a 'New' Work Art over the existing Art below Row 15. My fear is
> > that
> > > my file size will balloon. My code simply states
> > >
> > > Sheets("Starters").Select
> > > Rows("9:23").Select
> > > Selection.Copy
> > > Range("A25").Select
> > > ActiveSheet.Paste
> > > Range("A41").Select
> > > ActiveSheet.Paste
> > >
> > > How can I copy Rows 9-23 without the WorkArt also (which is 'floating'
> > over
> > > Rows 14-18)
> > >
> > >
> > > Thanks
> > >
> > >
>
> --
>
> Dave Peterson