Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Is selected file open

Sub IsWorkbookOpen()    Dim myWorkbook As Workbook    Dim stName As String      stName = "c:\abc.xls"    On Error Resume Next    Set myWorkbook = Workbooks(stName)    If Not myWorkbook Is Nothing Then       MsgBox True    End If       MsgBox False End Sub