unerklärlicher Debugg-Sprung

Sub Private Worksheet_Calculate()
dim i as integer
for i = 40 to 634
.................es folgen Anweisungen
next
End Sub

Sub Private Worksheet" und fängt von vorne an
dadurch kommt es nie zur NEXT-Anweisung und Erhöhung der Variablen i
kann mir vielleicht jemand helfen (das Makro ist relativ groß)
Grüße
Günther