Number key pad bullet points vba

Question

Hi
Using number key pad one can insert bullets points by using Alt + 254 @ in the custom format.

What would be the equivalent vba code for the above to insert bullet points in existing group of cells without deleting its cell contents?

Many Thanks

Answer 1

Check an example:

Dim r As Range
Set r = Sheet1.Range("A1:A4") ' sample range

r.NumberFormat = ChrW(&H25A0) & " @"