showing date & time in footer, and resizing font.

[countryfan_nt]

Hello friends, hope all is well!

please help me with the code here please. Trying to place a custom footer, with a certain font size,
but I keep getting the font size in the footer (i.e. 1228 - Aug - 2018 18:16:07)
Please help me place only the date & time in the footer.

Thanks a lot in advance.

Sub FormatDate()
    With ActiveSheet.PageSetup

datestring = Format(Now(), "DD - MMM - YYYY  HH:MM:SS")

Sheets("Physician Contract").Select
ActiveSheet.PageSetup.LeftFooter = "&""times new roman"" & 12" & datestring
  
     End With
End Sub

 

[John_w]

Try this:

Sub CreateFooter()
    Dim dateString As String
    dateString = Format(Now, "DD - MMM - YYYY  HH:MM:SS")
    With ActiveSheet.PageSetup
        .LeftFooter = "&""Times New Roman""&12 " & dateString
        .RightFooter = ""
    End With
End Sub