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 some data in
different cells. I want to copy that cell data from all sheets to a new
sheet or a new
workbook so its becomes more easy to process.

Anyone who have a good tip?

Thanks in advance.
 
set wkbk = ActiveWorkbook
workbooks.Add
set shDest = Activeworkbook.Worksheets(1)
for each sh in wkbk.Worksheets
sh.Range("A1:B200").Copy Destination:= _
shDest.Cells(rows.count,1).End(xlup)(2)
Next
 
Back
Top