I wrote a Function Sub with alphbet letters as output, but wish to change
this output to greek symbols. These are my codes:

with activecell
.font.name="symbol"
end with

It doesnt work. Can anyone correct it for me? Many thanks.