Count of open workbooks

[cg084]

Hello,

I would have searched on this but the search is not on at the moment. I need a way to return the number of open worksheets in MS Excel.

A user will open any number of workbooks and i just need to this number to perform a loop to unprotect each of the spreadsheets open.

Thank you

 

[SkipVought]

cg084,

I may be mistaken, but you seem to be using Workbook and Worksheet interchangeably.

The open Workbooks are in the Workbooks Collection. Wach Workbook Object has a Worksheets Collection. So...

NbrWorkbooks = Workbooks.Count
Msgbox "There are " & NbrWorkbooks & " workbooks"
For Each wbk in Workbooks
  NbrWorksheets = wbk.Worksheets.Count
  Msgbox "There are " & NbrWorksheets & " worksheets in workbook " wbk.Name
Next

Skip,

_{[red]Be advised:[/red]
Alcohol and Calculus do not mix!
If you drink, don't derive!}

 

[cg084]

Thank you for your help.

CG084