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

[Excel Fox]

Try

application.workbooks.Count

Or

Sub CountOpenWorkbooks()

    Dim wbk As Workbook
    Dim lng As Long
    
    For Each wbk In Workbooks
        If Not wbk.IsAddin Then
            lng = lng + 1
        End If
    Next wbk
    MsgBox "There are " & lng & " workbooks open", vbOKOnly, ""
End Sub