Boa tarde!!

Guima, tem como postar seu arquivo modelo compactado?
Att

Ola Alexandre,

Estou criando ainda o que pretendo fazer, então não tenho nada "muito" pronto. O modelo é basicamente este que segue no anexo.

Obrigado desde já pelo interesse e boa vontade em me ajudar.

Abraço

Boa noite!!

Não testado

Option Explicit

Private Sub UserForm_Initialize()
    Dim myTime As Date
    myTime = TimeSerial(8, 0, 0)
    Do Until myTime > TimeSerial(20, 45, 0)
        myTime = DateAdd("n", 15, myTime)
        Me.ComboBox1.AddItem Format$(myTime, "hh:mm")
    Loop
End Sub

Private Sub ComboBox1_Click()
    Dim myTime As Date, i As Long
    Me.ComboBox4.Clear
    myTime = TimeValue(Me.ComboBox1.Value)
    For i = 1 To 4
        myTime = DateAdd("n", 15, myTime)
        Me.ComboBox4.AddItem Format$(myTime, "hh:mm")
    Next
End Sub

Desculpa a demora para responder, é que final de ano esta uma loucura....rs.

Mas cara era isso mesmo, funcionou muito bem. Valeu !!!