Wo liegt der Fehler?

Sub STANDARDTDRUCK()
B = InputBox("Welchen Seitlichen Anschluss haben sie?" & vbCr & "P,S oder BA" & vbCr & "Haben sie mehrere Arten, drucken sie Sie mit den separaten Schaltern aus" & vbCr & "und lassen Sie das Feld hier leer!", "Anschluss Seite", "")
Sheets("BESTELLUNG").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Sheets("ALFRED").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Sheets("OSKAR").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
If B = "P" Then Sheets("KLINKPLAN P").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else: If B = "S" Then Sheets("KLINKPLAN S").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else: If B = "BA" Then Sheets("KLINKPLAN BA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End If
End If
C = MsgBox("Voravis oder Pulverbeschichtungsauftrag ausgedruckt und gefaxt?", vbYesNo, "Pulverbeschichtung!")
If merke = vbNo Then
Sheets("Beschichtungsauftrag").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Else: D = MsgBox("Die gewünschten Blätter wurden Gedruckt!", "Ausdruck Abgeschlossen")
End If
End Sub