I'm looking for the syntax for a procedure that would loop through all
worksheets in the active workbook, list the name of the worksheet and the
contents of cell A3 for each worksheet.

Can someone help? Thanks!

for each sh in Activeworkbook.Worksheets
With thisworkbook.Worksheets(1).Cells(i,1)
.Value = sh.name
.offset(0,1).value = sh.Range("A3").Value
end with
Next

--
Regards,
Tom Ogilvy
"Kirk P." wrote in message
...
I'm looking for the syntax for a procedure that would loop through all
worksheets in the active workbook, list the name of the worksheet and the
contents of cell A3 for each worksheet.

Can someone help? Thanks!