Проверьте событие Worksheet_SelectionChange. В этом случае вы можете использовать Intersect () с именованными диапазонами, чтобы выяснить, был ли выбран конкретный диапазон.
Вот код, который может помочь вам начать работу.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("SomeNamedRange")) Is Nothing Then
'Your counting code
End If
End Sub