Delete ' from date

  • Thread starter Thread starter LiAD
  • Start date Start date
L

LiAD

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
 
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
 
Or, alternately, simply select Column D and run this single line of code
from the Immediate Window...

Selection.Value = Selection.Value
 
Sorry (for my other reply), I see the OP wanted VB code; your macro could be
reduced to this...

Sub tickiller()
Columns("D").Value = Columns("D").Value
End Sub
 
Back
Top