i have multiple selections in three column blocks that need to be paste
in the next free column of another sheet or the next free cel
horizantally. needs to be in VBA code

ty al

--
cwatso
-----------------------------------------------------------------------
cwatson's Profile: http://www.excelforum.com/member.php...fo&userid=2460
View this thread: http://www.excelforum.com/showthread.php?threadid=38248

Sub TryNow()
Dim myArea As Range
For Each myArea In Selection.Areas
myArea.Copy Worksheets("SheetName").Range("IV1").End(xlToLeft) (1, 2)
Next myArea
End Sub

HTH,
Bernie
MS Excel MVP


"cwatson" wrote in
message ...

i have multiple selections in three column blocks that need to be pasted
in the next free column of another sheet or the next free cell
horizantally. needs to be in VBA code

ty all


--
cwatson
------------------------------------------------------------------------
cwatson's Profile:
http://www.excelforum.com/member.php...o&userid=24608
View this thread: http://www.excelforum.com/showthread...hreadid=382480

set lastcol = Worksheets("Other").Cells(3,"IV").End(xltoLeft)
selection.Copy Destination:=LastCol.Offset(0,1)

--
Regards,
Tom Ogilvy

"cwatson" wrote in
message ...

i have multiple selections in three column blocks that need to be pasted
in the next free column of another sheet or the next free cell
horizantally. needs to be in VBA code

ty all


--
cwatson
------------------------------------------------------------------------
cwatson's Profile:
http://www.excelforum.com/member.php...o&userid=24608
View this thread: http://www.excelforum.com/showthread...hreadid=382480