If your cells with a single quote is in a column, you could try data|text to columns choose delimited (but uncheck all the delimiters) and finish. If your cells are spread out all over, you could use a macro. Select your range and run this:
Code:
Option Explicit
Sub testme()
Dim myCell As Range
Dim myRng As Range
Set myRng = Nothing
On Error Resume Next
Set myRng = Intersect(Selection, _
Selection.Cells.SpecialCells(xlCellTypeConstants))
On Error GoTo 0
If myRng Is Nothing Then
MsgBox "no constants!"
Exit Sub
End If
For Each myCell In myRng.Cells
With myCell
.Value = .Value
End With
Next myCell
End Sub
Bookmarks