Sayfa sekme rengi

[magnesia]

Arkadaşlar selam..

For i = 1 To Worksheets.Count
If Worksheets(i).Name = "DATA" Or Worksheets(i).Name = "Grafik Sayfası" Then GoTo pass
Worksheets(i).Delete

şeklinde kodların bir kısmını buraya ekledim.
Bu komutta, sayfaları sırlarken, grafik sayfasının en başta olmasını sağlıyorum.
Sorum şu :

"Grafik" sayfa renginin kırmızı olması için kodların arasına hangi satırı eklemeliyim?

Şimdiden teşekkürler..

 

[Ziynettin]

For i = 1 To Worksheets.Count
If Worksheets(i).Name = "DATA" Or Worksheets(i).Name = "Grafik Sayfası" Then GoTo pass
Worksheets(i).Delete
Next i
Sheets("Grafik Sayfası").Tab.ColorIndex = 3

 

[magnesia]

Tamamdır Ziynettin kardeşim..
Tam istediğim gibi oldu..
İlgine, bilgine, emeğine sağlık..