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

Data Analysis

  • Subtotal function in Excel
  • Use Data Form to input, edit and delete records in Excel
  • Randomize/ Shuffle List in Excel
  • How to sum a total in multiple Excel tables
  • How to calculate average last N values in a table in Excel

References

  • How to get address of last cell in range in Excel
  • How to get last row in mixed data with blanks in Excel
  • Perform case-sensitive Lookup in Excel
  • How to create dynamic named range with OFFSET in Excel
  • How to use Excel ROW Function

Data Validations

  • Excel Data validation require unique number
  • Data validation must not exist in list
  • Excel Data validation exists in list
  • Excel Data validation date in next 30 days
  • Excel Data validation must contain specific text

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

Logical Functions

  • IF with boolean logic in Excel
  • Nested IF function example in Excel
  • How to use Excel FALSE Function
  • IF with wildcards in Excel
  • FALSE function: Description, Usage, Syntax, Examples and Explanation

Date Time

  • Get last working day in month in Excel
  • Get fiscal year from date in Excel
  • How to get workdays between dates in Excel
  • Extract date from a date and time in Excel
  • How to enter Today’s Date or Static Date and Time in Excel

Grouping

  • Group times into 3 hour buckets in Excel
  • If cell contains one of many things in Excel
  • Group numbers at uneven intervals in Excel
  • Group times into unequal buckets in Excel
  • Running count group by n size in Excel

General

  • With vs Without Array Formula in Excel
  • Currency vs Accounting Format in Excel
  • How to calculate percent of students absent in Excel
  • Mark Workbook as Final in Excel
  • How to make excel worksheets print on one page?
© 2023 xlsoffice . All Right Reserved. | Teal Smiles | Abbreviations And Their Meaning