I discovered the problem. Your helpful code:

? Asc(Selection.Text)

actually doesn't appear to work for these bullets. I suppose this is because automated bullet lists are not treated as standard text. Instead, that formula was retrieving the font code for the next immediate letter -- in this case, M.

I did some digging and discovered the bullet character I'm using is Symbol character 183 (Unicode character F0B7). But I do not know how to plug this information into the

.Text =

field. I looked up a Unicode translation here, but it is not intelligible to me.

Do you know how to write Symbol 183 / Unicode F0B7 in a way that VBA understands?

Thanks again for your ongoing help. I really appreciate it.