Dim Rng As Range, CxRng As Range
If Selection.Count > 1 Then
Set Rng = Selection
Rng.NumberFormatLocal = "@"
For Each CxRng In Rng
CxRng.Value = "'" & CxRng.Value
Next
End If
End Sub