Fehlende Objektbibliothek

Wenn ich folgenden Code auf meinem Rechner verwende geht alles glatt, auf einem anderen Rechner kriege ich allerdings die Fehlermeldung, dass die entsprechende Objektbibliothek fehlen würde! Wie gehe ich vor?

Sub oeffn()
On Error GoTo Dr_Fuhrmann

Application.ScreenUpdating = False
Sheets("SAP_Download").Visible = True
Sheets("Alle Erzeugnisse").Visible = True
Monatsinventur.Show
Exit Sub

Dr_Fuhrmann:
With Error(9)
MsgBox "Es wurden keine Daten eingelesen!", vbCritical
End With

End Sub