Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
DialogActiveCellFont
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
DialogActiveCellFont
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
DialogActiveCellFont
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
DialogActiveCellFont
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|