Copy data

  • Thread starter Thread starter LSN
  • Start date Start date
L

LSN

Hi,

I have 87 sheets in a workbook were all sheets contains data in A8:E21. I
want to copy data in A8:E21 from all sheets to a new sheet or a new
workbook.

How?

Thanks.
 
Sub copy_range()
For counter = 2 To Sheets.Count 'assume sheet(1) is where
data is going
Sheets(counter).Range("A8:e21").Copy
ActiveCell.Value = Sheets(counter).Name
ActiveCell.Offset(0, 1).PasteSpecial
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(14, 0).Select
Next counter
End Sub

run the sub from your master sheet (make sure it's sheet
1) and should work

Steve
 
Back
Top