Copying Cells

[SAllen]

I am trying to copy the same specific cells from each sheet in a workbook and copy that to a new workbook. The macro debuger gives me a run-time error '1004' Application-defined or object-defined error stops at the range line. I'm running this from a xls spreadsheet named Cdabakup.xls, could this be a problem? Can anyone help?

Sub Copy()


Dim ws As Worksheet
Dim CellstoCopy() As Variant
Dim x As Integer

For Each ws In ThisWorkbook.Worksheets
ReDim Preserve CellstoCopy(x + 1)
CellstoCopy(x) = ws.[g13]
CellstoCopy(x + 1) = ws.[g32]
x = x + 2
Next ws

Workbooks.Add
Range(Cells(1, 1), Cells(1, x)) = CellstoCopy


End Sub
This message was edited by SAllen on 2002-08-29 18:32

 

[larai]

Hmnnn...what do you mean by stops?

I pasted your code into a new book and ran it and it works fine...?

On the new workbook that gets created, I get 4 columns of data on row 1 (I had 2 spreadsheets with data in cells G13 & G32.