Try this.
Sub Remove()
Range("B1:B10").Select
Application.CutCopyMode = False
Cells.Replace What:="'", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
Range("A1").Select
End Sub
Edit # 1: Sorry, didn't read it through, I thought you were removing 's from text
This message was edited by Cosmos75 on 2002-03-26 09:56
Edit # 2:
Sub Macro2()
Range("B1:B10").Select
Selection.TextToColumns
Destination:=Range("B1:B10"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="'", FieldInfo:=Array(1, 3)
End Sub
This message was edited by Cosmos75 on 2002-03-26 09:59