Excel çalışma sayfalarında aktif hücrenin istediğiniz renkte olmasını isteyebilirsiniz. Bunun için ThisWorkbook bölümüne aşağıdaki kodları yazmanız yeterli. Eğer sadece istediğiniz sayfa üzerinde renklendirme yapmak istiyorsanız kodları worksheet prosüdürüne yazmanız gerekiyor.

---

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 9 ' renk kodu
OldRange.Interior.ColorIndex = xlColorIndexNone
Set OldRange = Target
End Sub

Sub sayfaismigoster()
‘/, Tek tek sayfaların isimlerini mesaj kutusunda gösterir
Dim isayfasayisi As Integer
Dim isayfa As Integer
isayfasayisi = ActiveWorkbook.Worksheets.Count
For isayfa = 1 To isayfasayisi
Worksheets(isayfa).Activate
MsgBox Worksheets(isayfa).Name
Next isayfa
End Sub