Copy and paste values and number formats pastes formatting

[Canthandlemyhandle]

Hello, I made a macro that prints a formula sheet from a more complex information sheet. Most everything works except the Selection.PasteSpecial script leaves the source formatting. The script is below. I tried altering the "Selection.PasteSpecial Paste:=xlNumberFormats, Operation:= _xlNone, SkipBlanks:=False, Transpose:=False" line by making two lines, one for values and the other for number formats. This lead to another error.

Sheets("Version 1").Select
Range("A7:J78").Select
Selection.Copy
Sheets("Kitchen Print").Select
Range("A7").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("G6:G57").Select
Application.CutCopyMode = False

Any help would be greatly appreciated.

[AB33]

Try this one

Please Login or Register  to view this content.

[HSV]

Or:

Please Login or Register  to view this content.

[Canthandlemyhandle]

Great!! Thank you all for your help. The problem has been fixed.

[FDibbins]

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.

Also, as a relatively new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.