Copy data

[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.

 

[steve smallman]

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