Copy and Paste from one workbook to another (VBA)

[PatrickO]

Currently on Excel 2003...

Thought this would be easy, but I must be missing something

Sub FTEData()
Dim wksht As Worksheet
Dim wbASIS As Workbook
Dim wbBench As Workbook
Dim i As Integer
 
Set wbASIS = Workbooks("AS-IS Data.xls")
Set wbBench = Workbooks("Benchmarking.xls")
For Each wksht In wbASIS.Worksheets
    If wksht.Name = "Start" Or wksht.Name = "Roll up" Then
 
    Else
 
 
        'Copy Template to new spot
 
        wbBench.Worksheets("Template").Range("Template_Range").Copy _
        Destination:=wbBench.Worksheets("Data").Range("A1").Offset(0 + i, 0)
 
 
        'Insert worksheet name into FTE info header
        wbBench.Worksheets("Data").Range("A1").Offset(0 + i, 1).Value = wksht.Name
 
        'Copy FTE info
 
            wbASIS.Worksheets(wksht.Name).Range("V20:V79").Copy
[COLOR=red]            wbBench.Worksheets("Template").Range("A100").Paste[/COLOR]
 
        'Adjust i
        i = i + 64
 
 
    End If
 
Next wksht

I get a runtime error 438 when it gets to the red line where I am trying to paste the data.

I also attempted to use .copy Destination:=, but that did not work either.

Any help would be greatly appreciated.

 

[pboltonchina]

Try removing

.Paste