Re: copy and paste multiple selection

Gareth,

Yes it does. The following works...
'------------------
Sub Test()
Dim rngA As Excel.Range
Dim lngN As Long

Set rngA = Range("T5,C7:T9,T13,C15:T17,T19,C21:T23")

For lngN = 1 To rngA.Areas.Count
Range("A4")(1, lngN).Value = rngA.Areas(lngN)(1).Value
Next
Set rngA = Nothing
End Sub
'-----------------------

Jim Cone
San Francisco, USA



"Gareth" <Gareth.Evans@xxxxxxxxxxxxxxxx> wrote in message
news:eLdfHd8YFHA.4088@xxxxxxxxxxxxxxxxxxxxxxx
> c7:c9, etc, are merged cells if that makes ant difference........



> "Jim Cone" <jim.coneXXX@xxxxxxxxxx> wrote in message
> news:uxaSIW7YFHA.2288@xxxxxxxxxxxxxxxxxxxxxxx
> > Gareth,
> > You can't put 10 lbs in a 5 lb bag.
> > There are 165 cells in...
> > Range("T5,C7:T9,T13,C15:T17,T19,C21:T23")
> > and
> > 6 cells in...
> > Range("A4:F4")
> > Your can do this...
> > Sheets("Sheet2").Range("A4:F4").Value =
> Sheets("Sheet1").Range("G4:L4").Value
> > Regards,
> > Jim Cone
> > San Francisco, USA

.