Thanks to both of you! i will try both of these solutions. In the meantime
i fixeed the problem with a simple data validation list but it's rather
clunky so I'll try the more complex solutions.

Thanks again,

mike

"flummi" wrote:

Something like this:

Private Sub CommandButton1_Click()

With Worksheets("sheet1")
.PageSetup.LeftHeader = "Individual title 1"
.PrintOut
.PageSetup.LeftHeader = "Individual title 2"
.PrintOut

End With
End Sub

On the VBA help look for the keyword "pagesetup".

Regards

Hans