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