Formatting column
 

I've got an Excel workbook that contains many license numbers and I need to
format the column so that if a license number has several 0s in front, they
aren't automatically truncated by Excel. I tried general, number, and text
formats but they truncate leading 0s. Any ideas? Thanks.

Formatting column
 

You may try running the code below which should effectively remove all
leading zero from the selected cells.

Sub truncate_zero()
Dim cell As Object, tmp
For Each cell In Selection.Cells
tmp = cell.Value
If Left(tmp, 1) = 0 Then
Do Until Left(tmp, 1) < 0
tmp = Right(tmp, Len(tmp) - 1)
Loop
cell.Value = tmp
End If
Next
End Sub


Regards,
Edwin Tam

http://www.vonixx.com


"Brent E" wrote:

I've got an Excel workbook that contains many license numbers and I need to
format the column so that if a license number has several 0s in front, they
aren't automatically truncated by Excel. I tried general, number, and text
formats but they truncate leading 0s. Any ideas? Thanks.