Adding a new worksheet for listing worksheet names & cell C10 values, adding
the worksheet names in Column A and adding the value in cell C10 in column B
for every worksheet in the workbook.

-------------------------------------
Sub List_All_SheetNames()
Dim Rng As Range
Dim i As Integer
Worksheets.Add
Cells(1, 1).Value = "Worksheet Names"
Cells(1, 2).Value = "Cell C10"
Set Rng = Range("A2")

For Each Sheet In ActiveWorkbook.Sheets
Rng.Offset(i, 0).Value = Sheet.Name
Rng.Offset(i, 1).Value = Worksheets(Sheet.Name).Range("C10").Value
i = i + 1
Next Sheet
Columns("A:B").EntireColumn.AutoFit
End Sub
--------------------------
hth,
Jim K


"Boss" wrote:

Great code,

But along with the sheet name if i wish to get cell vaule "c10" then?

I need this as i have to check about 250 sheets. please help, us macro can
solve my purpose.

Thanks!