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.
Dim objThis As Workbook
Set objThis = ActiveWorkbook
For Each Workbook In Workbooks
If Workbook.Name <> objThis.Name Then
Workbook.Worksheets.Copy _
Before:=objThis.Sheets(1)
End If
Next