For Each Loop to Determine If an Excel Workbook Is Open

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The following sample Visual Basic Sub procedure calls the user-defined IsOpen function.

   Sub Test()
       If IsOpen("Book1.xls") Then
          MsgBox "The file is open."
       Else
          MsgBox "The file is not open."
       End If
   End Sub
 
   Function IsOpen(FileName As String) As Boolean
       Dim wb As Workbook
       For Each wb In Application.Workbooks
           If UCase(wb.Name) = UCase(FileName) Then
               IsOpen = True
               Exit Function
           End If
       Next wb
       IsOpen = False
   End Function
				

In the above example, the IsOpen function returns a True if Book1.xls is already open in the current instance of Microsoft Excel; otherwise, IsOpen returns False.