Cheers pointless - works like a treat. I knew it wasn't as hard as I was
making it...!!

Thanks to Glen, Tom and Bernie for the input too.

"Pointless" wrote:


That srot of mess up the basics for Bernies "speciel cells" sulution.
Back to the painfully slow word of loops I guess...

Could you make some kind of assumption about the "real" month values?
This example assumes that any value that is less than 2 characters is
actually blank or junk.

Sub Month_copy()
Dim CELL As Range, RNG As Range

Set RNG = ActiveSheet.Range("A2", "A10000")

For Each CELL In RNG
If Len(CELL.Value) < 2 Then CELL.Value = CELL.Offset(-1, 0).Value
Next

End Sub

Set the "RNG" in some clever way (dont start from row 1). Example:
lastRow = ActiveSheet.Range("b10000").End(xlUp).Row
Set RNG = ActiveSheet.Range("A2", ActiveSheet.Cells(lastRow, 1))

/clueless


--
Pointless
------------------------------------------------------------------------
Pointless's Profile: http://www.excelforum.com/member.php...o&userid=30862
View this thread: http://www.excelforum.com/showthread...hreadid=506799