Excel VBA, adding quotes to a sting
===

I am trying to add single quotes to values in a column by using Chr(39), but I am only getting the second quote.
e.g. I want **'value'** but I am getting **value'**

But if I use double quotes by using Chr(34) it works, and I get **"value"**


Sub AddQuote()
Dim myCell As Range
    For Each myCell In Selection
        If myCell.Value <> "" Then
            myCell.Value = Chr(39) & myCell.Value & Chr(39)
        End If
    Next myCell
End Sub

Thanks,
Kiran