Short cut way to add text

A

Arup C

Hi Everybody,
Is there any way to add text to another text ? The data I have like this
Jan
Feb
Mar (all in text format)
Now I want to add -07 to each of them so that they become Jan-07, Feb-07 and
Mar-07 in with very few steps (the lesser steps are better)
 
D

Don Guillett

try this
Sub addtexttovalues()
For Each c In Range("a2:a22")
If Not IsNumeric(c) Then 'in case of numbers
c.NumberFormat = "@"
c.Value = c.Value & "-07"
End If
Next c
End Sub
 
Top