Sidehoved/fod VB - Skriftstørrelsen, side nr., dato og klokkeslet

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        .LeftHeader = "&""Arial,Fed""&14 Tidspunkt " & Now() ' klokken
        .CenterHeader = "indhold af denne del"
        .RightHeader = ""
        .LeftFooter = "indhold af denne footer"
        .CenterFooter = "indhold af denne del"
        .RightFooter = "&""Arial,Fed""&14Side &P af &N" ' side af sider, med Ariel fed og skrift størrelse 14
    End With
End Sub

ret selv videre ;-))

Tak for hjælpen. Det var lige det jeg skulle bruge :-)