Euro symbol displayed as a line - Registry changes

[SB]

I followed the advice of Jim Rech (see the link below) by using the
macro to change the registry...

http://groups.google.com/groups?hl=...lm=a7f0nu%241la%241%40news2.isdnet.net&rnum=1

....and although it works I don't like it. The euro symbol now
displays correctly but the rest of the font (ie the normal text)
doesn't display as nice as it previously did. I would like to go back
to the way it was before.

Can someone tell me what in the registry I need to change to reverse
what was done in the macro. (macro replicated below)

Sub ExcelBlockFontSubstitute()
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
wsh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & _
Application.Version & "\Excel\Options\FontSub", 0, "REG_DWORD"
End Sub


Thanks in advance

SB

 

[Trevor Shuttleworth]

Stuart

I would guess:

Sub ExcelBlockFontSubstitute()
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
wsh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & _
Application.Version & "\Excel\Options\FontSub", 1, "REG_DWORD"
End Sub

Or, if you are feeling brave, use RegEdit to open the registry and navigate
to the key that has been inserted and delete it

Regards

Trevor