New Contributor

Im needing to know how to add bullets to multiple cells all at once


3 Replies


Select the cells, then run this macro:

Sub AddBullets()
    Dim Cell As Range
    Application.ScreenUpdating = False
    Selection.Replace What:=vbLf, Replacement:=vbLf & "• ", LookAt:=xlPart
    For Each Cell In Selection
        If Cell.Value <> "" Then
            Cell.Value = "• " & Cell.Value
        End If
    Next Cell
    Application.ScreenUpdating = True
End Sub

@Heidilk75 As a variant:


Select the cells and use custom formatting as follows Screenshot 2020-12-29 at 17.32.17.png



A custom number format

"● "@

could also give a useful visual effect.


Edit: I prepared this post but forgot to click 'Post'.  I should have checked before sending