Sayfalar arası geçiş sağlayan makro hk

[u.L.a.s]

Merhabalar

aşağıdaki kod düzeneğinde çok sayfalı excel listemde ilgili sheete tıklayarak gidebiliyorum.

Bu kod düzeneğinde ufak bir değişiklik yapmak istiyorum. çok sık kullandığım sheetler için açılan userform üstündeki listbox içerisindeki sheetadlarından bazılarını renklendirebilir miyim? örneğin Cihazlar Lokasyonlar firmalar diye ayrı 3 sheetim var. bunun dışındada bir sürü sheet var ama ben sadece bu 3 sheetin farklı bir renkte olmasını istiyorum. bilgi ve yardımlarınızı rica ederim

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ThisWorkbook.Worksheets(ListBox1.Text).Activate
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        ListBox1.AddItem syf.Name
    Next
    Sirala ListBox1
End Sub
'Sayfaları alfabetik listelemek için gerekli. İstemiyorsanız silebilirsiniz.
Sub Sirala(Liste As MSForms.ListBox)
    Dim x, tmp
    Dim i As Long, j As Long
    x = Liste.List
    For i = LBound(x, 1) To UBound(x, 1) - 1
        For j = i + 1 To UBound(x, 1)
            If x(i, 0) > x(j, 0) Then
                tmp = x(i, 0)
                x(i, 0) = x(j, 0)
                x(j, 0) = tmp
            End If
        Next j
    Next i
    Liste.Clear
    For i = LBound(x, 1) To UBound(x, 1)
        Liste.AddItem x(i, 0)
    Next i
End Sub