VBAの実行時エラーについて

Question

前提・実現したいこと

VBA初学者です。
繰り返し処理で、以下のことを実現したいです。
① グループ化されている列を全表示にする。
② 3行目の最終列から数えて、任意の列（下記コードでは最終列から左へ39列目）から、左へ3列を列選択する。
② ②の3列を追加でグループ化し、グループ化した箇所を非表示にする。
③ ①、②の処理を各シートで繰り返す。
※新規でグループ化した列は、既にグループ化されている列と結合させたいです。

発生している問題・エラーメッセージ

実行時エラー1004
「アプリケーション定義またはオブジェクト定義のエラーです」

１シート目は狙い通りの処理が実行されるのですが、
２シート目以降を処理する際、上記エラーにより処理が止まってしまうみたいです。

該当のソースコード

    Dim ii As Long
    Dim sh1 As Worksheet, sh11 As Worksheet
    Dim GroupLastColumn As Integer

    For ii = 4 To Worksheets.Count
        Set sh11 = Worksheets(ii)
        sh11.Cells.EntireColumn.Hidden = False
        GroupLastColumn = sh11.Range("C3").End(xlToRight).Offset(0, -39).Column
            With sh11
             .Range(.Columns(GroupLastColumn), .Columns(GroupLastColumn - 2)).Select
            End With
        Selection.Columns.Group
        sh11.Outline.ShowLevels ColumnLevels:=1
        
    Next

End sub

補足情報（FW/ツールのバージョンなど）

この処理の前にFor Next文、変数を使って各シートの特定の位置にある情報をコピーペーストしているのですが、こちらはちゃんと動きました。
念のため上記処理と変数は分けています。

Comments

[meg_]

・コードは「コードの挿入｣で記入してください。
・゛シートのグループ化を解除し、゛と゛既にグループ化されている列゛が矛盾しているかと思うのですが違いますか？
・エラーはどこで発生していますか？

[sazi]

Worksheetsが4から始まってますが、全体で何シートあるんですか？

[nen]

meg_様
ご指摘ありがとうございます。そして失礼いたしました。
コードの挿入と、「グループ化を解除し」→「グループ化されている列を全表示にする」に変更いたしました。
エラーは一回目の処理が終わり、Nextで処理しようとするときに発生しています。「For ii = 4 To Worksheets.Count」の後にmsgboxを設けて変数の格納状態を確認しようとしましたが、5と表示されずに上記エラーが出て処理が止まってしまいます。

[nen]

sazi様
変更したいシートは全てで5シートです。
動作確認のためのサンプル用なので、本運用する際には3桁くらいに増えます。

[hatena19]

「アプリケーション定義またはオブジェクト定義のエラーです」が出たときに、エラーダイアログのデバッグボタンをクリックするとどのコードが反転表示されますか。

[sazi]

>エラーは一回目の処理が終わり、Nextで処理しようとするときに発生しています。
結果だけをみるとWorksheets.Countの値によるものと思われますので、Worksheets.Countをforの前で確認して下さい。

[nen]

hatena19様
どのコードも反転表示されないので、ステップインで一行ずつ実行していったところ、「.Range(.Columns(GroupLastColumn), .Columns(GroupLastColumn - 2)).Select」の処理を行う手前までは動くみたいでした。
また、ステップインで各シートの処理を行ったところ、処理するシートをアクティブにした状態だと処理が狙い通り実行されるみたいです。別のシートから処理を行おうとするとエラーで止まるようです。

[nen]

sazi様
ご回答ありがとうございます。
Worksheets.Countをmsgboxで確認したところ、9と表示されました。
4シート目から5シート作業したいので、この数値で問題はなさそうです。

[Usirow]

Activeではないシート内のセルをSelectしようとするとエラーになります。
そこでエラーが出ているのなら、原因の一つはこれでしょう。
加えて、Range内のColumnsの指定が0以下になっている可能性も考えられますが、そちらは大丈夫でしょうか？

Answer 1

Usirowさんの回答通りだと思われます。
問題を回避するには、

• シートをアクティブにする
• Selectを使わない

のいずれかになるかと思います。
処理速度の観点で言えば後者と思いますので、以下のように修正してみてください。

この4行を、

With sh11
    .Range(.Columns(GroupLastColumn), .Columns(GroupLastColumn - 2)).Select
End With
Selection.Columns.Group

こうする。

With sh11
    .Range(.Columns(GroupLastColumn), .Columns(GroupLastColumn - 2)).Columns.Group
End With

Comments

[nen]

うわああできました！！！
ありがとうございます！！！
セレクトをなるべく使わずに作ることの大切さを実感しました…
Usirow様、ttyp03様、ご指摘ご回答頂いた皆様、貴重なお時間を頂きまして誠にありがとうございました。

Answer 2

        GroupLastColumn = sh11.Range("C3").End(xlToRight).Offset(0, -39).Column
        With sh11
            .Range(.Columns(GroupLastColumn), .Columns(GroupLastColumn - 2)).Select
        End With

3行目は42列目まではデータが入っていて空白セル無しという前提のコードですが、
42列目までに空白セルがないというのは確認済みですか。

Comments

[nen]

hatena19様
ご回答頂きありがとうございます。
セルC３から最終列までの間に空白セルはございません。