on 4/14/2011, Matthew Dyer supposed :
I'm going from column to column... i don't see what the problem is...
Workbooks("Analytics.xlsm").Worksheets("MTD").Colu mns("g").Copy _
Destination:=Workbooks(WBNew).Worksheets(WSNew).Co lumns("a")
Here's the whole code
Sub Print_MTD2()
Dim WBNew As Workbook
Dim WSNew As Worksheet
'build new Workbook/worksheet to copy data into
Set WSNew = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
Set WBNew = ActiveWorkbook
'copy columns from MTD to new sheet
Workbooks("Analytics.xlsm").Worksheets("MTD").Colu mns("g").Copy _
Destination:=Workbooks(WBNew).Worksheets(WSNew).Co lumns("a")
End Sub
You need to specify a source AND target ADDRESS. So...
replace Columns("g") with Range("$G:$G")
replace Columns("a") with Range("$A:$A")
OR
wrap them in Range() and specify ADDRESS...
Range(Columns("g").Address)
Range(Columns("a").Address)
OR
use Columns("g").EntireColumn for the copy
use Columns("a") for destination
HTH
--
Garry
Free usenet access at
http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc