Looping through Worksheets

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Copy cells from one worksheet to another workseet - increment row & do again 0
Arithmetic with Cell Dates 1
Worksheets in Loop 1
Loop to hide sheet based on cell 1
loop through all worksheets 5
Excel Highlighting duplicates 0
ODBC QueryTable Location (Cell address) 2
LOOPING THROUGH WORKSHEETS! 5

Back
Top