Thank you David, I'll remember to mention this in the future (or perhaps put
a comment in the code itself).

Unfortunately a function can't change the format of the cell in which it
resides.
--
Gary's Student


"David" wrote:

With interest above need, I tried this and got boxes until I changed font
to Arial Unicode MS. Something the unwary might miss.

--
David

?B?R2FyeScncyBTdHVkZW50?= wrote

Circled letters are available in unicode. In column A put:
9398
9399
9400
9401
9402
9403
9404
9405
9406
9407
9408
9409
9410
9411
9412
9413
9414
9415
9416
9417
9418
9419
9420
9421
9422
9423

In B1 put:
=uni(A1) and copy down

Here is the code for uni():

Function uni(r As Range) As String
Dim i As Integer
Dim s As String
i = r.Value
s = ChrW(i)
uni = s
End Function