Pessoal estou precisando resumir esse código não tenho muita experiência loops, se alguém quiser me dar um Help agradeço valew

 If Me.u1h83.BackColor = &HCFCFCF Then
            Select Case txtP1Dur9
            Case "1"
                Me.u1h9.BackColor = &HE9E9E9
            Case "2"
                Me.u1h9.BackColor = &HE9E9E9
                Me.u1h93.BackColor = &HE9E9E9
            Case "3"
                Me.u1h9.BackColor = &HE9E9E9
                Me.u1h93.BackColor = &HE9E9E9
                Me.u1h10.BackColor = &HE9E9E9
        End Select
 
    Else
        Select Case txtP1Dur9
            Case "1"
                Me.u1h9.BackColor = &HCFCFCF
            Case "2"
                Me.u1h9.BackColor = &HCFCFCF
                Me.u1h93.BackColor = &HCFCFCF
            Case "3"
                Me.u1h9.BackColor = &HCFCFCF
                Me.u1h93.BackColor = &HCFCFCF
                Me.u1h10.BackColor = &HCFCFCF
        End Select
    End If