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.
[blue]Function IsWorkBookOpen(ByVal pstrWorkBookName As String) As Boolean
On Error Resume Next
IsWorkBookOpen = GetObject(, "Excel.Application").Workbooks(pstrWorkBookName).Name <> ""
End Function[/blue]