Wanneer er een error in de sub voorkomt, de sub eindigen

Sub declaratie_1()

Sheets("for input").Range("D4").Value = WorksheetFunction.Sum(Sheets(9).Range("C8:C2987"))
Sheets(9).Range("D8:Y2987").Copy
Sheets("converter sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("for input").Range("C4").Value = WorksheetFunction.Sum(Sheets("converter sheet").Range("C8:C2987"))
Sheets("converter sheet").Range("D8:Y2987").Clear
Sheets("for input").Activate

End Sub

^Het gaat om de bovenstaande code:
Wanneer de macro de sheets(9) niet kan vinden, wil ik dat de sub stopt. Dit wil ik ook graag nog kunnen uitbreiden naar sheets(10) t/m 20, dat wanneer er eentje niet wordt gevonden, de Sub stopt.

Beetje weinig informatie en code graag tussen codetags.

Als 2de regel:
als voorlaatste regeldus net voor End Sub)

Cobbe zei:

Als 2de regel:

Code:

On Error GoTo GetOut

als voorlaatste regeldus net voor End Sub)

Code:

GetOut:

Klik om te vergroten...

Dankjewel, werkt perfect. Simpel en effectief