Sub tickiller()
Dim r As Range, rr As Range
Set r = Intersect(Range("D:D"), ActiveSheet.UsedRange)
For Each rr In r
If rr.PrefixCharacter = "'" Then
rr.Value = rr.Value
End If
Next
End Sub

--
Gary''s Student - gsnu201001


"LiAD" wrote:

Hi,

i have 10523 lines with dates in col D, with dates written as '27/10:09 etc.
What code could i use to find all the ' and delete them?

Thanks