First things first..............add the macro to your Personal.xls
Do you have a Personal.xls?
When you start Excel do you get a hidden workbook named Personal.xls?
Look for it under Window>Unhide.
If not there you must create it.
Turn on Macro Recorder and store the recorded macro in "Personal Macro
Workbook"..............picked from the "Store macro in:" dropdown.
Record yourself copying and pasting a cell.
Turn off macro recorder.
Window>Unhide>Personal.xls
Go to Tools>Macro>Macros and you will see a list of macros............in
this case, only Macro1.
Select it and "Edit" to go to the macro you just recorded.
In that open module, paste the revised code I posted in this reply.
Alt + q to return to Excel.
Select Personal.xls from Window Menu...........hide it.
Close Excel and you will be asked if you want to save
Personal.xls,,,,,,,,,,,,Yes, you do.
You now have a Personal.xls which will open when Excel does.
You can run the macro on any open workbook.
When you get this far and have the macro running properly. post back.
To change the default workbook and worksheet settings involves much more and
would require that all new workbooks and sheets would have code.
I would not do that................just run the macro on new workbooks.
To have filename in the Footer change the macro to this one.
Sub Set_Footer_Font()
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Regular""&8&F"
End With
End Sub
Gord
On Wed, 28 Apr 2010 02:15:06 GMT, "bwong" <(E-Mail Removed)> wrote:
>Thanks Gord.
>
>Can you please lead me with baby steps to create the macro then save it?
>
>I also like to make the footer a default for all new sheets/books. How can I
>do this too? The footer to display the saved file name in 8pts.
>
>Cheers
>Ben
>
>"Gord Dibben" <gorddibbATshawDOTca> wrote in message
>news:(E-Mail Removed)...
>> Not possible AFAIK without changing default Font at Tools>Options>General
>> which is a global setting for all new Excel workbooks.
>>
>> You probably wouldn't like the 8 pt font for column and row headers as
>> well
>> as default font size in cells.
>>
>> I suggest a quick macro saved in your Personal.xls
>>
>> Sub Set_Footer_Font()
>> With ActiveSheet.PageSetup
>> .LeftFooter = "&""Arial,Regular""&8"
>> End With
>> End Sub
>>
>> That will set the font size to 8 pt for whatever you enter as a left
>> footer.
>>
>> Which could also be set in the above macro.
>>
>>
>> Gord Dibben MS Excel MVP
>>
>>
>> On Mon, 01 Dec 2008 23:31:11 GMT, "bwong" <(E-Mail Removed)> wrote:
>>
>>>I would like to make a change so it becomes default.
>>>
>>>
>>>
>>>It is in Print Preview - Setup - Header/Footer tab. I want to make the
>>>font
>>>size 8 as default, I think the current default is 10.
>>>
>>>
>>>
>>>Is this possible?
>>>
>>
>
|
Similar Threads
