tells you how many workbooks are open

 
Sub CountBooks()
      MsgBox Workbooks.Count
End Sub

1.	Is selected file open?
2.	Open Workbook file (xls file)
3.	Get path of current work book
4.	Get work book from same directory
5.	Save as the active workbook
6.	Get next file name
7.	Open a text file for workbook
8.	Get active workbook name only(without path name)
9.	Load excel file
10.	Presents user with a GetOpenFileName dialog that allows multiple file selection.
11.	Save changes automatically, specify this as a parameter of the Close method

tells you how many workbooks are open : Workbook File « Excel « VBA / Excel / Access / Word