If your single quote is always in position 1 of the cells then use:

Sub nopreapostophe()
For Each c In Selection
If c.PrefixCharacter = "'" Then c.Value = c.Value
Next
End Sub

HTH

"sam" wrote in message
om...
Hello,
I have a excel sheet and I got to replace single quotes in one of
the columns and replace the resultant value in the same column. I am
relatively new to excel and not able to figure out a way to do that.

Thanks,
Sam.