What would I have to do, to change the code so the numbers that ge
copied keep their original text format? This is a great macr
(something given to me on this Forum) however it converts my number
from a text to a general format... and I lost my leading zeros...

Sub TidyUp()
Dim cLastRow As Long
Dim rng As Range
Dim i As Long
cLastRow = Cells(Rows.Count, "C").End(xlUp).Row
For i = 2 To cLastRow
If Cells(i, "A").Value = "" Then
Cells(i, "A").Value = Cells(i - 1, "A").Value
Cells(i, "B").Value = Cells(i - 1, "B").Value
End If
Next i

End Su

--
Message posted from http://www.ExcelForum.com