Skip to content
Free Excel Tutorials
  • Home
  • Excel For Beginners
  • Excel Intermediate
  • Advanced Excel For Experts

Data Analysis

  • Create Scatter Chart in Excel
  • How to conditionally sum numeric data in an Excel table using SUMIFS
  • Reverse List in Excel
  • How to Create Thermometer Chart in Excel
  • How to count table columns in Excel

References

  • How to get last row in numeric data in Excel
  • Get nth match with INDEX / MATCH in Excel
  • MATCH function: Description, Usage, Syntax, Examples and Explanation
  • How to reference named range different sheet in Excel
  • Two-column Lookup in Excel

Data Validations

  • Prevent invalid data entering in specific cells
  • Excel Data validation allow weekday only
  • Data validation must not exist in list
  • Excel Data validation must begin with
  • Excel Data validation require unique number

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:

How to use Excel CHOOSE Function

Next Post:

Customize Ribbon In Excel

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

Logical Functions

  • How to use Excel OR Function
  • OR function Examples in Excel
  • TRUE function: Description, Usage, Syntax, Examples and Explanation
  • IFERROR function: Description, Usage, Syntax, Examples and Explanation
  • How to return blank in place of #DIV/0! error in Excel

Date Time

  • Roll back weekday to Friday base on a particular date in Excel
  • How to get Holiday Date from Year in Excel
  • How to get number of days, weeks, months or years between two dates in Excel
  • How to get workdays between dates in Excel
  • Custom weekday abbreviation in Excel

Grouping

  • Running count group by n size in Excel
  • Group times into 3 hour buckets in Excel
  • Group numbers with VLOOKUP in Excel
  • Group arbitrary text values in Excel
  • Map inputs to arbitrary values in Excel

General

  • 3D SUMIF for multiple worksheets in Excel
  • Freeze and Unfreeze Panes in Excel
  • How to count total columns in range in Excel
  • Index and match on multiple columns in Excel
  • How to calculate percentage discount in Excel
© 2025 xlsoffice . All Right Reserved. | Teal Smiles | Abbreviations And Their Meaning