title: How to create a loop using a button?
body: <p>I have a group of merged cells with a number.</p>
  
  <p>When a user clicks a button I want the number to increment by 1. On click again, increment by 1, then click again, decrease by 2 back to the original number.</p>
  
  <pre><code>Sub OnClickLetterSent()
  If Worksheets("Lettersent").Range.Value = 802 Then
      Worksheets("Lettersent").Range.Value = Worksheets("Lettersent").Range("A1:E14") + 1
  ElseIf Worksheets("Lettersent").Range.Value = 803 Then
      Worksheets("Lettersent").Range.Value = Worksheets("Lettersent").Range("A1:E14") + 1
  ElseIf Worksheets("Lettersent").Range.Value = 804 Then
      Worksheets("Lettersent").Range.Value = Worksheets("Lettersent").Range("A1:E14") - 2
  End If
  End Sub
  </code></pre>