Skip to content
xlsoffice. All Rights Reserved
  • Home
  • Excel For Beginners
  • Excel Intermediate
  • Advanced Excel For Experts

Lookup and Reference Examples

  • How to use Excel ROWS Function
  • CHOOSE function: Description, Usage, Syntax, Examples and Explanation
  • How to get relative row numbers in a range in Excel
  • Get nth match with INDEX / MATCH in Excel
  • Convert text string to valid reference in Excel using Indirect function

Data Analysis Examples

  • Conditional Formatting Rules in Excel
  • Randomize/ Shuffle List in Excel
  • Reverse List in Excel
  • How To Filter Data in Excel
  • How to add Trendline to a chart in Excel

Data Validation Examples

  • Excel Data validation whole percentage only
  • How To Create Drop-down List in Excel
  • Excel Data validation require unique number
  • Excel Data validation number multiple 100
  • Excel Data validation must begin with

Loop through Books and Sheets Excel

by

Below we will look at a program in Excel VBA that loops through all open workbooks and worksheets, and displays all the names.

Situation:

Add the following code lines to the command button:

1. First, we declare two objects and one variable. One object of type Workbook we call book, one object of type Worksheet we call sheet, and a variable of type String we call text.

Dim book As Workbook, sheet As Worksheet, text As String

2. We want to loop through all open workbooks. To achieve this, add the following code line:

For Each book In Workbooks

3. We write the text “Workbook: “, the name of the workbook, and the text “Worksheets: “” to the variable text.

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

Note: you can use the & operator to concatenate (join) elements. To start a new line, you can use vbNewLine.

4. To loop through all the worksheets of a workbook, add the following code line:

For Each sheet In book.Worksheets

5. We write the names of the worksheets of a workbook to the variable text.

text = text & sheet.Name & vbNewLine

6. Close the second loop.

Next sheet

7. Add a white line.

text = text & vbNewLine

8. Don’t forget to close the first loop.

Next book

9. Finally, we display the variable text using a MsgBox.

MsgBox text

10. Test the program. Before you click on the command button, give your worksheets some descriptive names and open another blank workbook.

Result:

Post navigation

Previous Post:

Path and FullName property in Excel VBA

Next Post:

Complete List of Excel Logical Functions, References and Examples

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

Learn Basic Excel

Ribbon
Workbook
Worksheets
Format Cells
Find & Select
Sort & Filter
Templates
Print
Share
Protect
Keyboard Shortcuts

Categories

  • Charts
  • Data Analysis
  • Data Validation
  • Excel Functions
    • Cube Functions
    • Database Functions
    • Date and Time Functions
    • Engineering Functions
    • Financial Functions
    • Information Functions
    • Logical Functions
    • Lookup and Reference Functions
    • Math and Trig Functions
    • Statistical Functions
    • Text Functions
    • Web Functions
  • Excel VBA
  • Excel Video Tutorials
  • Formatting
  • Grouping
  • Others
  • RIGHT, RIGHTB functions: Description, Usage, Syntax, Examples and Explanation
  • BAHTTEXT function: Description, Usage, Syntax, Examples and Explanation
  • Extract middle name from full name — Manipulating NAMES in Excel
  • NUMBERVALUE function: Description, Usage, Syntax, Examples and Explanation
  • How to convert numbers to text using TEXT function in Excel
  • Get fiscal quarter from date in Excel
  • Get age from birthday in Excel
  • WEEKDAY function: Description, Usage, Syntax, Examples and Explanation
  • Convert Excel time to decimal minutes
  • Get work hours between dates custom schedule in Excel
  • PDURATION function: Description, Usage, Syntax, Examples and Explanation
  • Calculate original loan amount in Excel
  • NPER function: Description, Usage, Syntax, Examples and Explanation
  • How to Calculate Tax Rates in Excel
  • COUPDAYSNC function: Description, Usage, Syntax, Examples and Explanation
Acronyms, Abbreviations, Initialism & What They Stand For
© 2022 xlsoffice . All Right Reserved. | Teal Smiles