Makro abbrechen aufgrund aufgerufenem Sub

Sub check
geschrieben. Wenn ein "verbotenes" Sheet aktiv ist, wird der Code mit "then exit sub" beendet.
Da ich jedoch diesen 

Sub aus anderen Makros aufrufe, hat dieser Code keine Auswirkung, da zwar der Makro, aus dem der 

Sub Check aufgerufen wurde, weiterläuft.
Wie kann auch der eigentliche Makro gestoppt werden? (Ich habe einen separaten 

Sub geschrieben, weil ich diesen aus verschiedenen Makros am Anfang aufrufen will).
Danke für Feedback.
Peter

Sub check()
Dim strActiveSheet As String
strActiveSheet = ActiveSheet.Name
Application.Goto reference:=Range("Kein_Makro") 'Sheets, aus denen der
'Makro nicht laufen darf
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = strActiveSheet Then Exit Sub
Loop
End Sub