VBA for でシート名選択したいがエラー

Question

前提・実現したいこと

七番目のシートから最後のシートまでをFor-nextで回したいのですが、
途中でエラーが発生してしまいます

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

オブジェクトは、このプロパティまたはメソッドをサポートしていません。

該当のソースコード

Dim j As Integer
Dim sheetName As String
For j = 7 To Sheets.Count
sheetName = Worksheets(j).Name
Sheets(sheetName).Active

    ActiveSheet.Outline.ShowLevels RowLevels:=2

　　　　　　　　　　　　　・
・
・

試したこと

何を試しても必ずエラーが発生します。
根本的に何かが間違っているのでしょうか？？
ご教授お願いできますでしょうか。

Answer 1

Activate ？

Comments

[jinoji]

そもそも、Activateする必要もないかもしれない。

For j = 7 To Sheets.Count
Sheets(j).Outline.ShowLevels RowLevels:=2
Next

[GytaAmies]

とりあえず、これで対応できました！
ありがとうございます。

Answer 2

ワークシート選択ですが、以下変更にてどうなるでしょうか。
＜追記＞
jinojiさんの回答の通り、ActiveをActivateに修正。

Worksheets(j).Activate
'Sheets(sheetName).Active 

Comments

[GytaAmies]

回答ありがとうございます。
やはり、エラーが出てしまいます。。。

[TanakaHiroaki]

そうですか。
コードのどこでエラーが発生したのかを明示すれば、アドバイスが得られると思います。

[GytaAmies]

Dim sheetName As String
For j = 7 To Sheets.Count
Worksheets(j).Activate
sheetName = Worksheets(j).Name
Sheets(sheetName).Active

で実行すると
「Sheets(sheetName).Active」
が
「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
と出ます。

[TanakaHiroaki]

ActiveをActivateに修正すると？

[GytaAmies]

Sheets(sheetName).Active
を
Sheets(sheetName).Activate
に変更しても結果同じでした。

とりあえず、jinojiさんの回答でエラーは回避できました。
回答ありがとうございます。