SUB 138 Sub fontの解決方法

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