hi
i think because you have activecell laced through the code.
and if you are formatting a range with code, why are you showing the format
box?????
try this instead....
With Range("A1:L1").Font
.Name = "Arial" 'pick your own
.FontStyle = "Regular"
End With

regards
FSt1
"lwm" wrote:

I am trying to use this to format a range.

ActiveCell.Range("A1:L1").Select
Application.Dialogs(xlDialogActiveCellFont).Show Arg3:=0


But it only format the first cedll in the range. How do I get this to
change all cells in the range?

Thanks