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