Excel 2013: How To Check How Many Excel Files Are Open

[Admin]

Hi

try

    Dim appExcel    As Excel.Application
    Dim Wbk         As Excel.Workbook
    Dim lngCount    As Long
    
    On Error Resume Next
    Set appExcel = GetObject(, "Excel.Application")
    On Error GoTo 0
    
    If appExcel Is Nothing Then
        MsgBox "There are no workbooks open", vbOKOnly
        Exit Sub
    Else
        For Each Wbk In appExcel.Workbooks
            If Not Wbk.IsAddin Then
                lngCount = lngCount + 1
            End If
        Next
        
        MsgBox "There are " & lngCount & " workbooks open", vbOKOnly
    End If