Oops again! Sorry!

Range("a1") = Replace(ActiveCell, "'"' "")

"Toppers" wrote:

If Left(ActiveCell, 1) = "'" Then
MsgBox " Apostrophe detected "
Range("a1") = Replace(ActiveCell, "'", "")
' Or
Range("a1") = Right(ActiveCell, Len(Range("a1")) - 1)
MsgBox " Apostrophe removed "
End If


"ilyaskazi" wrote:


I want Apostrophe = "*::'::*"
and not comma = "*::-,-::*"


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=395245