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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 06:18 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com