View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett[_4_] Don Guillett[_4_] is offline
external usenet poster
 
Posts: 2,337
Default Loop through all Open workbooks

Sub allwbs()
For Each wb In Workbooks
MsgBox wb.Name

Next
End Sub

--
Don Guillett
SalesAid Software

"Stuart" wrote in message
...
User has opened workbooks - I've no idea as to their names
nor how many.
With ActiveWorkbook will deal with one of them.
How do I get at the others, please?

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.700 / Virus Database: 457 - Release Date: 06/06/2004