Union(Qcell, Jcell).Copy Range("Sheet2!a1") -- THAT's IT !!!

That's what I was looking for, -- how exciting...
Tks Shailesh,

Jim

"Shailesh Shah" wrote:


With a single line use,

Range("sheet1!A1,sheet1!c1").Copy Range("sheet2!A1")

or use Union function as per below modified code of your example.


Sub foo()
Dim Qcell As Range
Dim Jcell As Range

Set Qcell = ActiveCell
Set Jcell = ActiveCell.Offset(0, 2)

Union(Qcell, Jcell).Copy Range("Sheet2!a1")

End Sub



Regards,

Shailesh Shah
http://in.geocities.com/shahshaileshs/
(Excel Add-ins Page)



"JMay" wrote:

I'm trying to copy the values from A1 and C1 (only)
to my next sheet (sheet2) into cell A1:B1


Sub foo()
Dim Qcell As String
Dim Jcell As String
Qcell = ActiveCell.Address(0, 0)
Jcell = ActiveCell.Offset(0, 2).Address(0, 0)
????????