Cellerefference i sidehoved og/eller -fod

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Mit ark" Then ' hvis kun et specifikt ark ellers slettes linien
ActiveSheet.PageSetup.RightHeader = [SIDEHOVED] 'Indsætter cellem SIDEHOVED i højre top
End If
End Sub

Desværre - men jeg kan ikke få det til at virke...

Dette er hvad der er skrevet i VBA:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = [Virksomhed] 'Hvor Virksomhed er en navngivet celle
End Sub

virker fint ved mig, har du tjekket stavemåden på den navngivne celle. ?

husk at koden skal ligge i modulet ThisWorkbook

Tak, Kabbak og Gibber.

Efter koden er placeret i ThisWorkbook fungerer det perfect!!!

Takker.

Hvad med point???

giv dem til gibber

Vær's go