title: Delete Square in VBA
body: <p>I have encountered this problem. The first row is highlighters. How can I solve it.
  Here is the code :</p>
  <pre class="lang-vb prettyprint-override"><code>Sub DeleteSquare()
      If (Selection.Name &lt;&gt; &quot;Square&quot;) Then
          MsgBox (&quot;Not a Square!&quot;)
          Exit Sub
      End If
      If (MsgBox(&quot;Are you sure?&quot;, vbYesNo, &quot;Confirmation&quot;) = vbYes) Then
          Selection.DeletenumSquares = numSquares - 1
          Range(&quot;NoOfSquares&quot;).Value = numSquares
      End If
  End Sub
  </code></pre>