Eigen foutmelding i.p.v. vba foutmelding

[corvdh]

Ik gebruik de volgende macro om via een drukknop op het werkblad naar een ander werkblad te gaan:

Sub Ga_naar_blad2()

    Sheets("Blad2").Select
    On Error GoTo ErrMsg
    Exit Sub
ErrMsg:
  MsgBox ("Er is een fout opgetreden, werkblad niet gevonden."), , "FOUT"
    Range("A2").Select
    
End Sub

Stel nu dat blad2 niet bestaat dan krijg ik de volgende vba melding:
Fout 9 tijdens uitvoering
Het subscript valt buiten bereik

Niet iedereen begrijpt deze melding dus zou ik willen dat in dit geval mijn zelf gemaakte fout melding verschijnt, maar dat gebeurd niet bij deze macro.
Kan ik vba fout meldingen vervangen door eigen gemaakte fout meldingen?

 

[edmoor]

Je On Error GoTo ErrMsg moet een regel omhoog.
Dus voor de Sheets("Blad2").Select.

 

[snb]

Waarom geef je een gebruiker de gelegenheid om 'fouten' te maken ?

Als je dan toch aan het programmeren bent kun je de gebruiker net zo goed meteen een lijst met alleen geldige waarden voorschotelen.

Overigens bestaat de melding die jij vermeldt niet. MS gebruikt in ieder geval de juiste spelling van het woord bereik.

 

[corvdh]

Edmoor, Ik heb de oplossing toegepast en het werkt.
Bedankt.

Snb, De melding bestaat wel degelijk maar inderdaad het moet bereik zijn i.p.v. berijk.
Dit in de vraag reeds aangepast.