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 AddCurrentSheet()
ActSh As Object
Set ActSh = ActiveSheet
With Workbooks("MyBook.xls")
'Copy sheet into MyBook.XLS workbook
ActSh.Copy After:=.Sheets(1)
End With
End Sub