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 Worksheet_Change(ByVal Target As Excel.Range)
CheckMultiSheets Target
End Sub
Option Explicit
Dim LastSheet As String
Dim LastAddress As String
Sub CheckMultiSheets(ByVal Target As Excel.Range)
With Target
If .Worksheet.Name <> LastSheet Then
If .Address = LastAddress Then
MsgBox "Multisheet selection"
End If
End If
LastSheet = .Worksheet.Name
LastAddress = .Address
End With
End Sub