VBAで一番後尾のシート見出しの色を変更したい

質問

WIN　XP　エクセル2003
BOOK内の一番後尾のシート見出しの色を変更したいのですが
下記コードでは見出しの色が変わりません。
何処が間違っているのかわかりません。ご教授お願い致します。
Sub シート見出し色変更()
Dim N As Integer
Dim sh As Worksheet
N = ActiveWorkbook.Worksheets.Count
Worksheets(N).Activate
Set sh = ActiveSheet
sh.Tab.ColorIndex = 3
Worksheets(1).Select
End Sub

回答No.1

hana-hana3 · ベストアンサー

2002でそのまま動かしたら問題ありませんでしたよ。
何処がうまくいかないのでしょうか？

この一行で変更出来ますよ。
Worksheets(Worksheets.Count).Tab.ColorIndex = 3

お礼

無事解決しました。ありがとうございました。アドバイスいただいたすっきりしたコードを使用させていただきます。ありがとうございました。

回答No.2

KURUMITO

次のようにすればよいでしょう。
Sub シート見出し色変更()
Dim N As Integer
Dim sh As Worksheet
N = ActiveWorkbook.Worksheets.Count
Worksheets(N).Activate
ActiveSheet.Tab.ColorIndex = 3
Worksheets(1).Select
End Sub

お礼

ありがとうございました。＼(^o^)／