Maybe:

Sub AllArial()
ActiveWorkbook.Styles("Normal").Font.Name = "Arial"
End Sub

Cheers,

Joerg Mochikun

"White Horse" wrote in message
oups.com...
On an Excel worksheet, I need to programatically change the font of
the row and cell reference characters ( the A B C at the top and the 1
2 3 down the side).

We programatically process Excel files sent to us. All of our
worksheets are using an Arial font for the cell reference characters.
Sometimes, we receive a worksheet that appears to be using a Courier
font. This causes some fields to display #### when the workbook is
opened.

All of the actual cells in the offending workbook are Arial - it is
only the Reference characters that are different.

We are using Windows XP with Microsoft Office 2003.

Thanks,
Mike