Display names of open workbooks in a MsgBox

rmcc · November 10th, 2003, 10:43 PM

What would be the code to loop through the names of all open workbooks in the current session?

I have tried this but get error msgs.

Dim wb as Workbook
Dim wbs as Workbooks

For each wb in wbs
MsgBox (wb.Name)
Next wb

RJMcCluskey

chrislepingwell · November 11th, 2003, 05:59 AM

try this

Code:

Dim wb as Workbook
Dim wbs as Workbooks

Set wbs = Application.Workbooks

For each wb in wbs
  MsgBox wb.Name
Next wb

Your problem was that you were trying to loop through the workbooks in variable wbs before you had set it equal to anything.

HTH

Chris

There are two secrets to success in this world:
1. Never tell everything you know