How to keep the leading apostrophe from a cell when storing into a string variable?

[wiseone]

I have some code that I can execute no matter which cell on a row is selected. When my macro begins, it copies certain cells in the selected row into string variables. I later paste the string variable into another cell on a different tab. When I do this, if there was a leading apostrophe, the leading apostrophe is lost.

How can I maintain the apostrophe if it is there?

Here is an excerpt of the code which is not keeping the leading apostrophe:

Dim Active_Row as Integer
Dim CustomerPO as String

Active_Row = Selection.Row
CustomerPO = Cells(Active_Row, Range("Customer_PO").Column)
Range("Conf_PO) = CustomerPO

Thanks in advance!

 

[Kerryx]

Leading apostrophe

 

[wiseone]

Leading apostrophe

Thank you. Here is the solution for my code from the above link:

Dim Active_Row as Integer
Dim CustomerPO as String

Active_Row = Selection.Row
IF Cells(Active_Row, Range("Customer_PO").Column).PrefixCharacter = "'" Then
CustomerPO = "'" & Cells(Active_Row, Range("Customer_PO").Column)
Else
CustomerPO = Cells(Active_Row, Range("Customer_PO").Column)
End If

Range("Conf_PO") = CustomerPO