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.
Private Sub Workbook_Open()
'Add
Application.CommandBars.Add(Name:="Custom 1", Position:=msoBarTop, Temporary:=True).Visible = True
Application.CommandBars("Custom 1").Controls.Add Type:=msoControlButton, Id:=2950, Before:=1
Application.CommandBars("Custom 1").Controls.Item(1).OnAction = "Macro1"
End Sub
Private Sub Workbook_Close()
'Delete
'Application.CommandBars("Custom 1").Delete
End Sub