How do I remove the ' from the begining of value in a cell

[Guest]

I have a column containing dates but some begin with a ' which I need to
remove programatically.... any ideas. I already have the for next loop set up
but unable to find the correct method for detecting the ' and also removing
it to leave the date entry intact.

 

[Roger Govier]

Hi

Range("A1") = Range("A1")*1

 

[Guest]

Sub tic_killer()
Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each r In rr
If r.PrefixCharacter = "'" Then
r.Value = r.Value
End If
Next
End Sub

 

[Guest]

This worked a treat, many thanks for your help.....

 

[Guest]

Hi Roger, Many thanks I did try this but got the following error 'Type
Mismatch', not sure but can you multiply a date? anyway I do appreciate your
response...