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

Data Analysis

  • Reverse List in Excel
  • Excel Line Chart
  • Filter Data Based on Date in Excel
  • Move chart to a separate worksheet in Excel
  • How To Perform and Interpret Regression Analysis in Excel

References

  • Basic INDEX MATCH approximate in Excel
  • How to use Excel TRANSPOSE Function
  • Last row number in range
  • How to use Excel LOOKUP Function
  • How to use Excel MMULT Function

Data Validations

  • Excel Data validation must not contain
  • How To Create Drop-down List in Excel
  • Excel Data validation specific characters only
  • Excel Data validation allow uppercase only
  • Excel Data validation unique values only

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

  • NOT function: Description, Usage, Syntax, Examples and Explanation
  • Check multiple cells are equal in Excel
  • Extract multiple matches into separate rows in Excel
  • Return blank if in Excel
  • How to use Excel AND Function

Date Time

  • Calculate time difference in hours as decimal value in Excel
  • How to get same date next year or previous year in Excel
  • How to get same date next month or previous month in Excel
  • Basic timesheet formula with breaks in Excel
  • How to show last updated date stamp in Excel

Grouping

  • Group numbers at uneven intervals in Excel
  • Calculate conditional mode with criteria in Excel
  • Group arbitrary text values in Excel
  • Running count group by n size in Excel
  • Map inputs to arbitrary values in Excel

General

  • How to count total number of cells in a rectangular range in Excel
  • Find Most Frequently Occurring Word in Excel Worksheet
  • How to get original price from percentage discount in Excel
  • 44 Practical Excel IF function Examples
  • How to Delete Cells, Row and Rows in Excel
© 2023 xlsoffice . All Right Reserved. | Teal Smiles | Abbreviations And Their Meaning