Copy/Paste Macro Not Working Correctly

[dgeorge]

Hello,

I am trying to record a macro that copies an entire worksheet to the next worksheet (tab). The original worksheet has 4 macro buttons currently (one of which is the macro to do this copy/paste). When I run the macro below, it copies and pastes to the next tab but pastes as a picture and is very blurry and unreadable. When recording the macro itself, the process works perfectly. Or when doing the simple copy/paste to the next tab it works perfectly. Why won't the recorded macro do the same?

Here is the VBA:

Cells.Select
Selection.Copy
ActiveSheet.Next.Select
Cells.Select
ActiveSheet.Buttons.Add(160.5, 471, 145.5, 18.75).Select
ActiveSheet.Buttons.Add(4.5, 471.75, 145.5, 18.75).Select
ActiveSheet.Buttons.Add(316.5, 471, 135.75, 18.75).Select
ActiveSheet.Buttons.Add(894.75, 302.25, 169.5, 121.5).Select
ActiveSheet.Paste
Range("A1").Select
End Sub

Any help would be greatly appreciated.

Thanks!!

 

[Fluff]

If all you want to do is create as new copy of the sheet, complete with buttons, try

Sub Chk()
ActiveSheet.copy after:=ActiveSheet
End Sub

 

[dgeorge]

Thanks for your help. I can work with this, however, is there a way to copy to the next pre-existing sheet? This is for a golf league and I already have a tab set up for each week. I currently have tabs for WK1, WK2....WK16, all of which are blank except WK1. Your code creates WK1 (2). I can make this work, just wondered if there was a way to "copy to next" instead of "copy after" like your code.

Thanks!!

 

[Fluff]

In that case try

Cells.copy ActiveSheet.Next.Range("A1")
ActiveSheet.Next.Select
ActiveSheet.Range("A1").Select

 

[dgeorge]

That works perfectly!! Thanks so much!

 

[Fluff]

Glad to help & thanks for the feedback