try
Sub putleadingltr()
For Each c In Selection
If Len(c) 0 Then c.Value = "HD:" & c
Next
End Sub
--
Don Guillett
SalesAid Software

"HSFJKB" wrote in message
...
For every cell in a coloumn that has a value I would like it to be
preceded
by one given value. For example if values in a certain coloum were a,b,c,d
..
I would like it to read HD:a , HD:b , HD:c , HD:d but the balnk cells must
reamin blank.