title: Adding single quotes to a cell using VBA
body: <p>I am trying to add single quotes to values in a column by using <code>Chr(39)</code>, but I am only getting the second quote.<br />
  e.g. I want <strong>'value'</strong> but I am getting <strong>value'</strong></p>
  <p>But if I use double quotes by using <code>Chr(34)</code> it works, and I get <strong>&quot;value&quot;</strong></p>
  <pre><code>Sub AddQuote()
  Dim myCell As Range
      For Each myCell In Selection
          If myCell.Value &lt;&gt; &quot;&quot; Then
              myCell.Value = Chr(39) &amp; myCell.Value &amp; Chr(39)
          End If
      Next myCell
  End Sub
  </code></pre>