ok

VB Code:
  1. Sub Auto_Open()

  2. '

  3. ' Macro1 Macro

  4. ' Macro recorded 03.02.2005 by John.Robinson

  5. '

  6.  
  7. '

  8. Dim CurrentDate As String

  9.  
  10. CurrentDate = Format(Date, "MMM YY")

  11.  
  12. Sheets("D1 Survey").Select

  13.     With ActiveSheet.PageSetup

  14.         .PrintTitleRows = ""

  15.         .PrintTitleColumns = ""

  16.     End With

  17.     ActiveSheet.PageSetup.PrintArea = ""

  18.     With ActiveSheet.PageSetup

  19.         .RightHeader = CurrentDate

  20.     End With

  21.     

  22. Sheets("D2 Survey").Select

  23.     With ActiveSheet.PageSetup

  24.         .PrintTitleRows = ""

  25.         .PrintTitleColumns = ""

  26.     End With

  27.     ActiveSheet.PageSetup.PrintArea = ""

  28.     With ActiveSheet.PageSetup

  29.         .RightHeader = CurrentDate

  30.     End With

  31.  
  32. Sheets("D4 Survey").Select

  33.     With ActiveSheet.PageSetup

  34.         .PrintTitleRows = ""

  35.         .PrintTitleColumns = ""

  36.     End With

  37.     ActiveSheet.PageSetup.PrintArea = ""

  38.     With ActiveSheet.PageSetup

  39.         .RightHeader = CurrentDate

  40.     End With

  41.     

  42. Sheets("D5 Survey").Select

  43.     With ActiveSheet.PageSetup

  44.         .PrintTitleRows = ""

  45.         .PrintTitleColumns = ""

  46.     End With

  47.     ActiveSheet.PageSetup.PrintArea = ""

  48.     With ActiveSheet.PageSetup

  49.         .RightHeader = CurrentDate

  50.     End With

  51.     

  52. Sheets("D1 Survey").Select

  53. End Sub

got this working for all the sheets, just need the font bit sorting out and the auto start and then we are done