求去掉单引号的宏语句,该怎么处理

求去掉单引号的宏语句
如题

------解决方案--------------------------------------------------------
如果单元格第一个字符为单引号( ')，则该单元格格式为文本型，但是，通过取值的方法是得不到那个单引号的，为了去掉其中的单引号，可以用下面的方法：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim w1 As String
Application.EnableEvents = False
w1 = Target
Target = w1
Application.EnableEvents = True
End Sub