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
|