Public Sub Remove_Point()
Dim rngCell As Range
Application.ScreenUpdating = False
With ActiveSheet
For Each rngCell In .Range(.Cells(1, 1), .Cells(.Cells(65532, 1).End(xlUp).Row, .Cells.SpecialCells(xlCellTypeLastCell).Column))
rngCell = Replace(rngCell, '• ', vbLf)
Next rngCell
End With
Application.ScreenUpdating = True
End Sub