As Howard has pointed out, your concept is not workable in Excel.

Automatically you could do something like:
With ActiveCell
.Value = Replace(.Value, vbLf, vbLf & " - ")
End With

If you want the user to be able to select the place etc, you would need to
use a text box and an insewrt button.

NickHK

wrote in message
oups.com...
That will work only if I want the bullet at the start of the text. But
I want it to appear anywhere I place the cursor. And I may need more
than 1 bullet in the text.

Dom



L. Howard Kittle wrote:
Something like this perhaps. No need to double click however. Select
cell
and hit Ctrl + a.

Sub SpaceBullet()
ActiveCell.FormulaR1C1 = " . " & ActiveCell.Value
End Sub
Assinged the keystroke Ctrl + a

HTH
Regards,
Howard

wrote in message
ups.com...
I need to read several cells, and occasionally change some by adding
bullets to make the text clearer. For example, the text in the cell
might read:

There are three items here.
An automobile.
The license.
The owner.

I want to bullet this to read:

There are three items here.
. An automobile.
. The license.
. The owner.

I'd like to double click on the cell, place the cursor where I need
it,
and press ctrl-A to add (at the cursor) 5 spaces, a bullet, and 2 more
spaces.

Any ideas?
Dom