How To Copy Rows without Work Art

  • Thread starter Thread starter John
  • Start date Start date
J

John

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

Dave Peterson said:
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
Click to expand...
 
Back
Top