On Apr 14, 2:41*pm, GS wrote:
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 athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc- Hide quoted text -

- Show quoted text -

I tried all three examples and i still keep getting the type mismatch
error...