Hi

Assuming you want to show the name of the current sheet use this:

Function GetPageName()
GetPageName = ActiveSheet.Name
End Function

=GetPageName()

To print in landscape goto File Page Setup Landscape

Use the header/footer option in the Page Setu Menu (other tab) to create
headers on each page.

Regards,
Per

"jodleren" skrev i meddelelsen
...
Hi all

I would like to get the name of the sheet in cell A1, is there a
function for that?

Can I get it like this?

Function GetPageName()
GetPageName = Worksheets(5).Name
End Function

and use it in a cell like

=GetPageName( WhatDoI_needToPutHere? )

When printing, I want all pages to be landscape - how do I do that?
And the 2 upper lines, should read:

<page name pageno. < of pages
Headers....

WBR
Sonnich