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 ListOpenWorkbooks()
Dim msg As String, wb As Workbook
For Each wb In Application.Workbooks
msg = msg & wb.Name & vbLf
Next wb
MsgBox msg, , "Open Workbooks"
End Sub