Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to list all open workbooks and easily shift between workbooks in Excel?

Microsoft Excel allows you to open multiple workbooks at the same time, but it’s not easy for you to shift between all open workbooks. So you may want to list all open workbooks in a list for easily shifting between those workbooks in Excel. In this article, we will show you how to list all open workbooks for easily navigation in Excel.

Just list all open workbooks with VBA

List all open workbooks and shift to a workbook easily with VBA

List all open workbooks and shift to a workbook with Kutools for Excel

Excel Productivity Tools

Office Tab: Bring powerful tabs to Office (include Excel), just like Chrome, Safari, Firefox and Internet Explorer. Save you half the time, and reduce thousands of mouse clicks for you. 30-day Unlimited Free Trial

Kutools for Excel: Save 70% of your time and solve 80% Excel problems for you. 300+ advanced features designed for 1500+ work scenario, make Excel much easy and increase productivity immediately. 60-day Unlimited Free Trial



arrow blue right bubble Just list all open workbooks with VBA

In this section, you will learn how to use a VBA code for listing all open workbooks in Excel.

1. Press Alt + F11 keys to open the Microsoft Visual Basic for Applications window. In the Microsoft Visual Basic for Applications window, click Insert > Module.

2. Then copy and paste the below VBA code into the code editor.

VBA: list all open workbook names in Excel

Sub ListWorkbooks()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Range("A1")
	xNum1 = Application.Workbooks.Count
	For i = 1 To xNum1
		xNum2 = Application.Workbooks(i).Sheets.Count
		WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
		For j = 1 To xNum2
			WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
		Next
	Next
End Sub

3. Run the VBA code by pressing the F5 key. In the KutoolsforExcel dialog box, specify a cell for placing the workbook list, and then click the OK button. See screenshot:

Then all open workbooks with corresponding worksheets are listed out.

Hard to handle VBA code? You can acheive it through the third method with clicks.

arrow blue right bubble List all open workbooks and shift to a workbook easily with VBA

If you want to list all workbooks for easily shift between workbooks, please try to use the VBA as follows:

1. Press the Alt + F11 to open the Microsoft Visual Basic for Applications window. In the Microsoft Visual Basic for Applications window, click Insert > Module.

2. Copy and paste the following VBA code into the open module window.

VBA code: list all open workbooks and shift to a workbook

Sub SelectWB()
	Dim xWBName As String
	Dim xWb As Workbook
	Dim xSelect As String
	For Each xWb In Application.Workbooks
		xWBName = xWBName & xWb.Name & vbCrLf
	Next
	xTitleId = "KutoolsforExcel"
	xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
	Application.Workbooks(xSelect).Activate
End Sub

3. Press the F5 key to run the code. Then a KutoolsforExcel dialog box pops up with a list of all open workbooks. If you want to shift to a specified workbook, please enter this workbook name into the box and click the OK button. See screenshot:


arrow blue right bubble List all open workbooks and shift to a workbook with Kutools for Excel

With the Navigation pane of Kutools for Excel, all open workbooks will be listed automatically inside a pane for you to easily navigate between all open workbooks. You just need to click on one of the open workbooks and it will navigate to that workbook immediately.

If this utility is helpful, you can download and try the free trial now!

Excel Productivity Tools

Ribbon of Excel (with Kutools for Excel installed)

300+ Advanced Features Increase Your Productivity by 70%, and Help You To Stand Out From Crowd!

Would you like to complete your daily work quickly and perfectly? Kutools For Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for 1500+ work scenarios, helps you solve 80% Excel problems.

  • Deal with all complicated tasks in seconds, help to enhance your work ability, get success from the fierce competition, and never worry about being fired.
  • Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
  • Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands, and give you a healthy body.
  • Become an Excel expert in 3 minutes, and get admiring glance from your colleagues or friends.
  • No longer need to remember any painful formulas and VBA codes, have a relaxing and pleasant mind, give you a thrill you've never had before.
  • Spend only $39, but worth than $4000 training of others. Being used by 110,000 elites and 300+ well-known companies.
  • 60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
  • Change the way you work now, and give you a better life immediately!

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

  • Increases your productivity by 50% when viewing and editing multiple documents.
  • Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
  • Open and create documents in new tabs of same window, rather than in new windows.
  • Help you work faster and easily stand out from the crowd! One second to switch between dozens of open documents!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.