Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub FileIsOpen()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = "ExcelWorkbook.xls" Then
MsgBox wb.Name & " is open!"
Exit Sub
End If
Next
End Sub