One way. Before you ran your code, make sure all the numeric block
starting with 0 are prefixed with an apostrophe('). Eg "ACGB 4.75 0311
becomes "ACGB 4.75 '0311". The following code can achieve that:
Sub Primer()
Dim c As Range
Dim i As Integer
For Each c In Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row
'assuming data is inCol A
For i = 1 To Len(c)
If Mid(c, i, 1) = Chr(32) And Mid(c, i + 1, 1) = "0" Then
k = k & Mid(c, i, 1) & Chr(39)
Else
k = k & Mid(c, i, 1)
End If
Next
c.Value = k
k = ""
Next
End Su
--
Myle
-----------------------------------------------------------------------
Myles's Profile:
http://www.excelforum.com/member.php...fo&userid=2874
View this thread:
http://www.excelforum.com/showthread.php?threadid=57379