Thread: Bullet Points
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Terry Bennett Terry Bennett is offline
external usenet poster
 
Posts: 67
Default Bullet Points

Thanks Chip

"Chip Pearson" wrote in message
...
I think you would have to do it with code. Select the range and then run
this code.

Sub MakeBulletList()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
If Rng.IndentLevel = 0 Then
Application.EnableEvents = False
Rng.Formula = "=CHAR(7)&"" " & Rng.Text & """ "
Application.EnableEvents = True
Rng.IndentLevel = 1
End If
End If
Next Rng
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"Terry Bennett" wrote in message
...
Is there any way of creating bullet points (as in Word) within cells in
Excel?

Sometimes I find it useful to separate comments within a cell and wonder
whether there is a way of doing this other than simply typing the '-' key
manually at the commencement of each new point.

Thanks.