This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Hello, I have a starter sheet in Excel where to change the date (like 2023-07) and i want to update every other sheet with that "date" in the right footer in font size 18. I've managed to get 2023-07 everywhere but the fontsize doesn't fit.
Sub testfooter_date()
Dim datum As String
datum = Sheets("Startersheet").Range("C2")
Sheets("table1").Select
With ActiveSheet.PageSetup
.RightFooter = datum
End With
If I try to change that with what I found online the "-07" is huge in the excel background (hard to describe that correctly) and nothing in the right footer, but it works perfectly fine if there is only a text like "test" . Sadly i can't upload a screenshot (always an error)
datum = Sheets("Startersheet").Range("C2")
ActiveSheet.PageSetup.RightFooter = "&""Calibri""&18" & Sheets("Startersheet").Range("C2")
I hope my problem is formulated understandably
Thank you in advance
Win11 - Office 365
A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.
Answer accepted by question author
Because there is no space after the font size 18, the font size becomes the concatenation of 18 and the first part of the date.
Try
ActiveSheet.PageSetup.RightFooter = "&""Calibri""&18 " & Sheets("Startersheet").Range("C2")
(I added a space after 18)
Thank you so much :)