insert a "helper" column next to A. (it should be column B) in B1 enter
=a1&"*" and copy it down. Then copy/paste special to turn the column into
values.
Sub thestar()
Dim c As Range
For Each c In Range("A:A")
If c.Value <> "" Then
c = c.Value & "*"
End If
Next
End Sub
HTH
Regards,
Howard
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.