try one of these
Sub nopreapostophe()
For Each c In ActiveSheet.UsedRange
If c.PrefixCharacter = "'" Then c.Value = c.Value
Next
End Sub
Sub ValueCells()
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("a1").Select
End Sub
Sub MakeValues() 'Don Guillett
Sheets.Select
Cells.Select
With Selection
.Copy
.PasteSpecial Paste:=xlPasteValues
[a1].Select
Application.CutCopyMode = False
End With
Sheets(1).Select
End Sub