[Resolvido]Tem como deixar o código menor

Existe um método que deixe este código abaixo menor.

'---- Cores ----
If Me.cxCor1 = "" Then
Me.rtCor1.visible = False
Else
Me.rtCor1.visible = True
End If
If Me.cxCor2 = "" Then
Me.rtcor2.visible = False
Else
Me.rtcor2.visible = True
End If
If Me.cxCor3 = "" Then
Me.rtCor3.visible = False
Else
Me.rtCor3.visible = True
End If
If Me.cxCor4 = "" Then
Me.rtCor4.visible = False
Else
Me.rtCor4.visible = True
End If
If Me.cxCor5 = "" Then
Me.rtCor5.visible = False
Else
Me.rtCor5.visible = True
End If
If Me.cxCor6 = "" Then
Me.rtCor6.visible = False
Else
Me.rtCor6.visible = True
End If
If Me.cxCor7 = "" Then
Me.rtCor7.visible = False
Else
Me.rtCor7.visible = True
End If
If Me.cxCor8 = "" Then
Me.rtCor8.visible = False
Else
Me.rtCor8.visible = True
End If
If Me.cxCor9 = "" Then
Me.rtCor9.visible = False
Else
Me.rtCor9.visible = True
End If
If Me.cxCor10 = "" Then
Me.rtCor10.visible = False
Else
Me.rtCor10.visible = True
End If
If Me.cxCor11 = "" Then
Me.rtCor11.visible = False
Else
Me.rtCor11.visible = True
End If
If Me.cxCor12 = "" Then
Me.rtCor12.visible = False
Else
Me.rtCor12.visible = True
End If
If Me.cxCor13 = "" Then
Me.rtCor13.visible = False
Else
Me.rtCor13.visible = True
End If
If Me.cxCor14 = "" Then
Me.rtCor14.visible = False
Else
Me.rtCor14.visible = True
End If
If Me.cxCor15 = "" Then
Me.rtCor15.visible = False
Else
Me.rtCor15.visible = True
End If
If Me.cxCor16 = "" Then
Me.rtCor16.visible = False
Else
Me.rtCor16.visible = True
End If
If Me.cxCor17 = "" Then
Me.rtCor17.visible = False
Else
Me.rtCor17.visible = True
End If
If Me.cxCor18 = "" Then
Me.rtCor18.visible = False
Else
Me.rtCor18.visible = True
End If
If Me.cxCor19 = "" Then
Me.rtCor19.visible = False
Else
Me.rtCor19.visible = True
End If
If Me.cxCor20 = "" Then
Me.rtCor20.visible = False
Else
Me.rtCor20.visible = True
End If
If Me.cxCor21 = "" Then
Me.rtCor21.visible = False
Else
Me.rtCor21.visible = True
End If
If Me.cxCor22 = "" Then
Me.rtCor22.visible = False
Else
Me.rtCor22.visible = True
End If
If Me.cxCor23 = "" Then
Me.rtCor23.visible = False
Else
Me.rtCor23.visible = True
End If
If Me.cxCor24 = "" Then
Me.rtCor24.visible = False
Else
Me.rtCor24.visible = True
End If
If Me.cxCor25 = "" Then
Me.rtCor25.visible = False
Else
Me.rtCor25.visible = True
End If
If Me.cxCor26 = "" Then
Me.rtCor26.visible = False
Else
Me.rtCor26.visible = True
End If
If Me.cxCor27 = "" Then
Me.rtCor27.visible = False
Else
Me.rtCor27.visible = True
End If
If Me.cxCor28 = "" Then
Me.rtCor28.visible = False
Else
Me.rtCor28.visible = True
End If
If Me.cxCor29 = "" Then
Me.rtCor29.visible = False
Else
Me.rtCor29.visible = True
End If
'---- FIM ----

Tente:

Código:

Dim N As Integer

For N = 1 To 29
    If Me("cxCor" & N) = "" Then
        Me("rtCor" & N).visible = False
    Else
        Me("rtCor" & N).visible = True
    End If
Next

Perfect!!!

Grato pelo retorno. O fórum agradece.