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

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
>
>
>

Try this:

Sub fnt()
Range("A1:L1").Select
Application.Dialogs(xlDialogFormatFont).Show
End Sub


"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
>
>
>

This is the complete code
ActiveCell.FormulaR1C1 = "Jan"
Selection.AutoFill Destination:=ActiveCell.Range("A1:L1"),
Type:=xlFillDefault
ActiveCell.Range("A1:L1").Select
'

Application.Dialogs(xlDialogActiveCellFont).Show Arg3:=0

When I delete the ActiceCell it does not make the changes at all.

If i insert a Range("A1:L1").Select before the application it only does
the first cell

I am trying to do a macro that copies the months across and then alows the
user to format them.

"JLGWhiz" wrote:

> Try this:
>
> Sub fnt()
> Range("A1:L1").Select
> Application.Dialogs(xlDialogFormatFont).Show
> End Sub
>
>
> "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
> >
> >
> >