Laufzeitfehler "Objekt erforderlich"????

Sub Dokuplanungspeichern()
ActiveSheet.Copy
'Inbox zur Abfrage unter welchem Namen gespeichert werden soll
ID = InputBox("Bitte Geben Sie den Namen ein, unter dem dieses Registerblatt gespeichert werden soll:", "Speichern", "Name?")
If ID.Value = "" Then
Exit Sub
Else
ActiveWorkbook.SaveAs FileName:="Q:\blabla\blabla\Testordner\" & ActiveSheet.Name & "_" & ID & ".xls"
End If
End Sub