kleines Problem Schleife + jedes Blatt

ich habe ein kleines Problem bei dem ich Eure Hilfe brauche

folgenden Code:

Ich will dass in jedem Blatt der aktiven Mappe eine bestimmte Aktion ausgeführt wird, leider fuzt die obere Schleife nicht,sie soll wirklich nur in der aktiven Mappe ausgeführt werden!!!

Die Aktion Range("A5000").Select ist nur Beispielhaft, dort kommt später ein Makro hin!

Danke schonmal

Steffen