Ciclo for como recorrer combox?

Private Sub Combobox5_Change()
On Error Resume Next
valor = ComboBox5.List(ComboBox5.ListIndex, 0)
If valor = "" Then
If ComboBox5 <> "" Then
MsgBox "No se permiten valores diferentes a los del combo", vbCritical, "Error"
ComboBox5.SetFocus
ComboBox5 = ""
End If
End If
If ComboBox5 = "lun" Then
Call ValidarCelda2
End If
If ComboBox5 = "mar" Then
Call ValidarCelda2
End If
If ComboBox5 = "mié" Then
Call ValidarCelda2
End If
If ComboBox5 = "jue" Then
Call ValidarCelda2
End If
If ComboBox5 = "vie" Then
Call ValidarCelda2
End If
If ComboBox5 = "sáb" Then
Call ValidarCelda2
End If
If ComboBox5 = "dom" Then
Call ValidarCelda2
End If
End Sub

Este código aplicara también para los demás combobox que tengo