Custom Header/Footers

[eibcga]

The following code will place the full file name, including the path, into the header of the active worksheet.

ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName


Question:
How do I include the Sheet Name with the filemame as well?

Thanks

 

[Datsmart]

= ActiveCell.Parent.Name
Gives you the Sheet Name.

= ActiveWorkbook.Name
Gives you just the workbook name.

 

[eibcga]

Thank you. So how do I string this syntax all together so it will show the [path][filename][sheet] ?

 

[Datsmart]

Untried:

ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName & " " & ActiveCell.Parent.Name & " " & ActiveWorkbook.Name
All on one line.