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.
Option Explicit
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.DisplayAlerts = False
If Left(Sh.Name, 5) = "Sheet" Then Sh.Delete
Application.DisplayAlerts = False
End Sub
Option Explicit[b]
Public LastSelection As String[/b]
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.DisplayAlerts = False
If Left(Sh.Name, 5) = "Sheet" Then[b]
If LastSelection = Sh.[A1].CurrentRegion.Address[/b] Then Sh.Delete[b]
LastSelection = ""[/b]
End If
Application.DisplayAlerts = False
End Sub
[b]
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
LastSelection = Target.Address
End Sub[/b]