copying and pasting multiple columns to another sheet

[benlyon]

Hi All, Currently I have some code that looks like this:

Range("A1:A30") = Workbooks(newbooks).Sheets(1).Range("A1:A30").Value
Range("C1:C30") = Workbooks(newbooks).Sheets(1).Range("C1:C30").Value
Range("E1:E30") = Workbooks(newbooks).Sheets(1).Range("E1:E30").Value

This works fine however I want to streamline it further by doing the following:

Range("A1:A30,C1:C30,E1:E30") = Workbooks(newbooks).Sheets(1).Range("A1:A30,C1:C30,E1:E30").Value

Basically I want to save as much code and time as possible by combining everything into a single piece of code, however when I execute this function it does not work as it only returns the value from A1:A30. Can anyone help with this?
Thanks