workbook ereignis(se)

kann folgendes vereinfacht werden, bzw. ist es moeglich, dass buggs auftreten?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
End With
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub

subs stehen im gleichen workbook.

danke thomas