Ok firstly
Private Sub Workbook_Open() 'wont run on open in either module as it needs to be in   "Workbook Code"  Also it is a duplicate name which cause an error if it ever ran.Sheets("Sheet1").Buttons("Button 1").OnAction = "NewPrint"
    Sheets("Purchase Order").Activate '  can only be on sheet at a time not two 
   Sheets("Purchase Order").Protect , UserInterfaceOnly:=True 'can only be on sheet at a time not two 
End Sub
can you zip the file then I can have a closer look