Åbne Sideopsætning med makro

Jeg fant selv en løsning:

Sub RetDato2()
'
' RetDato2 Makro
'
Dim ErDuSikker
Dim DatoRettet
'
    ErDuSikker = MsgBox(Prompt:="Er du sikker på at du vil ændre dato i dags dato?", Title:="Meddelelse", Buttons:=vbYesNo + vbInformation)
    If ErDuSikker = vbYes Then
   
   
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .CenterHeader = "&22Afdeling pr. " & Format(Now(), "D. MMMM YYYY")
    End With
   
    DatoRettet = MsgBox(Prompt:="Dato er nu rettet til dags dato!", Title:="Meddelelse", Buttons:=vbInformation)
    End If
   
End Sub