How about...

Option Explicit
Sub testme()

Dim myRng As Range
Dim myCell As Range

Set myRng = Nothing
On Error Resume Next
Set myRng = Intersect(Selection, _
Selection.Cells.SpecialCells(xlCellTypeConstants, _
xlTextValues))
On Error GoTo 0

If myRng Is Nothing Then
MsgBox "Select some cells with constant text"
Exit Sub
End If

For Each myCell In myRng.Cells
myCell.Value = myCell.Value
Next myCell
End Sub




Chris wrote:

I am trying to get rid of a ' symbol with out doing it manually. find
replace doesn't work. i tried
With ActiveCell.Characters(Start:=1, Length:=1).Delete, but the deletes the
' as well as the next character. any ideas?

--

Dave Peterson