ExcelBanter - Without using a macro?

Not a chance

"Richard" wrote:

Is there a way to make this work without using a macro? Thanks in advance!!

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