Sorting Problems (Help)

[Cournoyer]

I have a simple spreadsheet that was emailed to me, and I needed to sort one
of the columns (6 digit number), and all but 6 records sort. I have tried
to highlight the entire column, and format it to numbers, text (It was
General), I even tried to retype the six fields, but they still won't sort
numerically. What's up with this BG (Bill Gates) silly program? I am
missing something simple?

Rich

 

[Don Guillett]

try
Sub ConvertThem() 'Harald Staff
Dim C As Range
For Each C In Intersect(Selection, _
ActiveSheet.UsedRange)
If Not C.HasFormula Then
If IsNumeric(C.Value) Then
C.Value = C.Value * 1
End If
End If
Next
End Sub