Excel VisualBasic Script

Sub CountBooks()
      MsgBox Workbooks.Count
End Sub