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 DelShts()
Application.DisplayAlerts = False
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name <> "Keep Me" Then
Sheet.Delete
End If
Next
Application.DisplayAlerts = True
End Sub