Or,

Sub AddOne()

For each c in Range("a:a")
If Not Isempty(c) Then
c.value = 1 & c.value
End if
Next

End Sub


--
Myles
------------------------------------------------------------------------
Myles's Profile: http://www.excelforum.com/member.php...o&userid=28746
View this thread: http://www.excelforum.com/showthread...hreadid=490316