Resumir código VBA

Hola alguien que me pueda ayudar tengo el siguiente código en Vba y quiero resumirlo, he intentado por for each pero necesito que sean unos controles específicos

If (AbrvCodPartc.Value = "CU") Or (AbrvCodPartc.Value = "CR") Then
Dim Resltd As String
Resltd = "No/Aplica"
D1 = Resltd
D2 = Resltd
D3 = Resltd
D4 = Resltd
d5 = Resltd
D6 = Resltd
D7 = Resltd
D8 = Resltd
D9 = Resltd
D10 = Resltd
D11 = Resltd
D1.Enabled = False
D2.Enabled = False
D3.Enabled = False
D4.Enabled = False
d5.Enabled = False
D6.Enabled = False
D7.Enabled = False
D8.Enabled = False
D9.Enabled = False
D10.Enabled = False
D11.Enabled = False
Else
D1 = ""
D2 = ""
D3 = ""
D4 = ""
d5 = ""
D6 = ""
D7 = ""
D8 = ""
D9 = ""
D10 = ""
D11 = ""
D1.Enabled = True
D2.Enabled = True
D3.Enabled = True
D4.Enabled = True
d5.Enabled = True
D6.Enabled = True
D7.Enabled = True
D8.Enabled = True
D9.Enabled = True
D10.Enabled = True
D11.Enabled = True
End If

Gracias a cualquiera que me pueda explicar