Hi all, I have the following code (shown below) in order to print the "last
revision date" in my footer. I would like to have the font size be "8" for
both the literal "Last Revision Date" AND the date inserted by the code.

I've searched and found "TextEffect.FontSize = xx", where xx equals the font
size wanted. However, I have no idea where to insert this in the code below
- can someone help me please? I've just starting using visual basic editor
so am not too familiar with all this code!

Thanks in advance!
Cheryl
===============================================

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "Last Revision Date:" & " " &
Format(Now(), "mm/dd/yyyy")

End Sub

Try inserting "&08" (that's ampersand followed by the desired font size using
2 digits) into you footer text. Like this "ActiveSheet.PageSetup.RightFooter
= "&08" & "Last Revision . . .

Will

"CherylH" wrote:

Hi all, I have the following code (shown below) in order to print the "last
revision date" in my footer. I would like to have the font size be "8" for
both the literal "Last Revision Date" AND the date inserted by the code.

I've searched and found "TextEffect.FontSize = xx", where xx equals the font
size wanted. However, I have no idea where to insert this in the code below
- can someone help me please? I've just starting using visual basic editor
so am not too familiar with all this code!

Thanks in advance!
Cheryl
===============================================

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "Last Revision Date:" & " " &
Format(Now(), "mm/dd/yyyy")

End Sub

Thank you roadkill - I appreciate your help! (p.s. love the user name!!!)

"roadkill" wrote:

Try inserting "&08" (that's ampersand followed by the desired font size using
2 digits) into you footer text. Like this "ActiveSheet.PageSetup.RightFooter
= "&08" & "Last Revision . . .

Will

"CherylH" wrote:

Hi all, I have the following code (shown below) in order to print the "last
revision date" in my footer. I would like to have the font size be "8" for
both the literal "Last Revision Date" AND the date inserted by the code.

I've searched and found "TextEffect.FontSize = xx", where xx equals the font
size wanted. However, I have no idea where to insert this in the code below
- can someone help me please? I've just starting using visual basic editor
so am not too familiar with all this code!

Thanks in advance!
Cheryl
===============================================

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "Last Revision Date:" & " " &
Format(Now(), "mm/dd/yyyy")

End Sub