Hi,
I have a list in column A starting from A1 to A15.
a). I would like to add a bullet before the present text in column A (with a
space separating bullet and the present cell's contents) and output it to
Column B starting from row 1. Is there a char function for bullet. Presently
I went through a long way of going to Insert - Symbol and then chose Arial
(I want Arial font only) and then from innumerable options I chose a bullet
looking symbol whose character code is 25CF (using this char code in excel
doesnt work. excel rather switches 25cf to CF25 for address reference !!)
I recorded the above process but got a macro like this which doesnt help.
Sub Bulleting()
'
' Bulleting Macro
' Macro recorded 7/7/2005 by Hari Prasadh
'
'
ActiveCell.FormulaR1C1 = "?"
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("G13").Select
End Sub
I never inserted a question mark so dunno from where it popped up.
b) Second, after the bullet is inserted I would combine it with the text in
A1 and output to B1. Then I want to Format all the Bullets in Column B to
Red (only the bullet not the text). How to do this automatically?
Ultimately I would be taking this List in Column B and pasting in to a
text-Box in power-point.
Please guide me.
Thanks a lot,
Hari
India
Bookmarks