I am trying to change the font type of all the cells to
arial with out changing the size, bold or other formating
options. Is there a way to do this through a macro?

Thanks,

Brady Snow

Mckinney, Tx

This will change all cells in the ActiveSheet.

Cells.Font.Name = "Arial"

Or you could just click on the 'box' to the left of Column A and above
Row 1. Change by selecting on Menu Bar, Format Cells Font Tab.

HTH
Paul
--------------------------------------------------------------------------------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------------------------------------------

I am trying to change the font type of all the cells to
arial with out changing the size, bold or other formating
options. Is there a way to do this through a macro?

Thanks,

Brady Snow

Mckinney, Tx