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
Dim cll_rng As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set cll_rng = Range("a1", Range("d9"))
If Not Intersect(cll_rng, Target) Is Nothing Then
' code to execute
End If
Set cll_rng = Nothing
End Sub