Problem med makro BeforeClose

Hej

Hvorfor får jeg fejl, når jeg lukker arket?
Den skriver: *Method 'ActivePrinter' of Object '_Aplication' failed"

Kode:
Private Sub Workbook_Open()
  OldPrinter = ActivePrinter
  Application.ActivePrinter = "\\w7-rheota2\DYMO LabelWriter 450 DUO Label on Ne06:"
  MsgBox "Default printer is now DYMO LabelWriter"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ActivePrinter = OldPrinter
End Sub