class="coin-step" style="margin-right:3px">質問者が納得転記ミスがあるようですが置いといて
多分、実行時に
Activesheet <> Sheets("前期")
の状態ではないでしょうか？
Sheets("前期").Select
として
Activesheet = Sheets("前期")
の状態にすれば通ると思います。
あるいはSelectせずに
With Sheets("前期").Range("kotoba_1")
Select Case...
4583日前view118
