That is strange. I changed the code to Font.NameAscii = "Courier New" and it now works???