G
Guest
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
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