I have a spreadsheet with 50 worksheets all created from the same template. I want to create a front sheet that lists the names of the worksheets in column A and then in column B copy the data from G10 and then in column C copy the data from H10 from each of the worksheets.

Currently I create a new worksheet and then use the following code:

Code:
Sub Sheetlister()

Dim Sheet As Object
Range("A2").Select
For Each Sheet In ActiveWorkbook.Sheets
ActiveCell.Formula = Sheet.Name
ActiveCell.Offset(1, 0).Select
Next Sheet

End sub
Can you help with adapting the code so that I can copy my data cells from each named sheet to the this sheet.

Thank you