title: Creating a counter in VBA
body: <p>I wanted to know if there is an effective way to create a counting mechanism on vba using a <code>Worksheet_SelectionChange</code> event? 
  I want to count how many times a specific cell is selected. If the cell is selected then the variable will go up by one, otherwise no change is made to the variable.</p>
  
  <pre><code>Dim S As String
  Dim count As Integer
  
  count = 0
  S = "$" &amp; "D" &amp; "$" &amp; ActiveCell.Row
  
  If ActiveCell.Address = S Then
      count = count + 1
  Else
      count = count
  End If
  </code></pre>