Copying across columns

[Gemz]

Hi,

I have the following sample code which keeps creating an error, please can
you tell me whats wrong? the columns to copy need to be in that order.

With oldbk.Sheets(2)

..Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
Destination:= _
NewbkS2.Range("A1")
End With

thanks.

 

[Don Guillett]

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

 

[Don Guillett]

Finger too fast.Try this idea

Sub copycols()
Range("h1,t1,ak1").EntireColumn.Copy cells(2,1)
Range("g1,aj1").EntireColumn.Copy cells(2,4)
'etc
End Sub