Hi Stuart,

   Yes, it's very easy to do all of this. I've posted some demo code below
to give you an idea of how it's done.

Sub HeaderFooterDemo()

   Dim szProject As String
   Dim szSheetName As String
   Dim szPrintDate As String
   Dim szOtherThings As String

   szProject = "My Project"
   szSheetName = "My Sheet"
   szPrintDate = Format(Now(), "MM/dd/yyyy")
   szOtherThings = "Other things"

   With ActiveSheet.PageSetup
       .LeftHeader = szProject
       .CenterHeader = szSheetName
       .RightHeader = szPrintDate
       .LeftFooter = szOtherThings
       .CenterFooter = szOtherThings
       .RightFooter = szOtherThings
   End With

End Sub