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!