I don't know what you mean? Is it the same as in Windows? Thanks for your help


Private Sub CommandButton1_Click()

Worksheets("Sent to Assembly").Range("A3:B100,c3:c100").Copy
Worksheets("Parts Sent to Assembly").Range("a65000").End(xlUp).Offset(1,
0).PasteSpecial
Worksheets("Sent to Assembly").Range("a3:a100,b3:B100").ClearContents
Worksheets("Schedule").Range("d1,L1,a3:a100,b3:B10 0,d3:d100").ClearContents


End Sub

"Dave Peterson" wrote:

Did you try the suggestions from yesterday?

Richard wrote:

How would I run this code in a mack. The command button will not activate on
the sheet

--

Dave Peterson