copy/paste

[jarhead58]

Why wouldn't this code work in a macro activated by a command button! It copies the cell to the clipboard but won't finish with the paste! Stumped!!

P.S. Button is on active cell sheet.

Worksheets("Sheet1").Range("N2").CopyActiveCell.PasteSpecial Paste:=xlPasteFormats
ActiveCell.PasteSpecial Paste:=xlPasteValues

 

[Fluff]

Do you get any error messages?

 

[KUYJS]

Worksheets("Sheet1").Range("N2").Copy
Selection.PasteSpecial Paste:=xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues

 

[jarhead58]

Fluff, nope, just sat on N2 in copy mode.

 

[jarhead58]

Worksheets("Sheet1").Range("N2").Copy
Selection.PasteSpecial Paste:=xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues

Same results Kuyjs.

 

[Fluff]

Are you sure that there is something in N2 on sheet1 to copy (ie it's not blank)?

 

[jarhead58]

Are you sure that there is something in N2 on sheet1 to copy (ie it's not blank)?

No value, just a format!

 

[jarhead58]

It's basically for a baseball score card. I have it formatted 4 different ways in 4 different cells. Each representing a type of hit. Single, double, etc.

 

[Fluff]

What type of format?

 

[jarhead58]

Here is a link on OneDrive.https://1drv.ms/x/s!Apokzs4VeX3NtWhgJINWLFtRNu02

The one in N2 has been redesigned just trying to get it to work. The other 3, O2, P2, Q2, are what I would like to copy.