title: Adding string which starts with single quotes to excel cell
body: <p>I was trying to automate text to column function, delimited with space in excel through VBA.</p>
  
  <pre><code>strArray = split (currentSheet.Cells(i,1).Value), " ")
  
  For j = 0 To (UBound(strArray) - LBound(strArray))
         currentSheet.Cells(i, 1 + j).NumberFormat = "@"
         currentSheet.Cells(i, 1 + j).Value = strArray(j)
  Next j
  </code></pre>
  
  <p>The issue encountered when i get some text like: <strong>KIDS 'R' KIDS</strong></p>
  
  <p>The second word <strong>'R'</strong> is becoming <strong>R'</strong> in the cell, however if I do in build text to column function in excel with space as delimiter this word comes as 'R' only in the cell. </p>
  
  <p>If I add one more single quotes in the beginning <strong>''R'</strong> the problem resolves, but I think this may affect my further processing of data. </p>
  
  <p>So is there any way around?</p>