Добавление одинарных кавычек в ячейку с помощью VBA

Я пытаюсь добавить одинарные кавычки к значениям в столбце, используя Chr (39 ), но получаю только вторую кавычку. например. Я хочу 'значение' , но получаю значение '

Но если я использую двойные кавычки с помощью Chr (34 ), это работает, и я получаю "значение"

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

Спасибо, Киран