try this from anywhere in the workbook.

Sub copycutcell()
With Sheets("sheet4").Range("a1")
.Copy Sheets("sheet3").Range("a1:c1")
.Clear
End With
End Sub

--
Don Guillett
SalesAid Software

"Stan" wrote in message
...
Can someone assist me with some Excel VB code?

In the example below, I want to cut the date from the current worksheet
(Sheet1) and paste it into multpile cells in another worksheet (Sheet2)
within the same workbook.

What is the best way to reference each worksheet? I tried Sheet2! but
that
didn't work for me.

Range("A1").Select
Selection.Cut Destination:=Range("A1,B1,C1") 'this needs to be pasted
in
a new worksheet within the same workbook.


Many thanks if you can help!