Simplifying the code

is there another way to shorten this code?

thanks

Sub ColorSelection()

    If UserForm1.DesignBestEcImage1.Enabled = True Then
        UserForm2.Show
    End If

    If UserForm2.Image1.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &H0&
    End If
      
    If UserForm2.Image2.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &H80&
    End If
        
    If UserForm2.Image3.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &HFF&
    End If
    
    If UserForm2.Image4.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &HFF00FF
    End If
    
    If UserForm2.Image5.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &HCC99FF
    End If
    
    If UserForm2.Image6.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &HCC99FF
    End If
    
    If UserForm2.Image7.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &H800000
    End If

End Sub

Hello Walid66,

Here is one version...

Sub ColorSelection()

  Dim BC As Long
  Dim Ctl As Object
  Dim I As Integer

    If UserForm1.DesignBestEcImage1.Enabled = True Then
        UserForm2.Show
    Else
        Exit Sub
    End If

      For I = 1 To 7
        Set Ctl = UserForm2.Controls("Image" & Trim(Str(I)))
        If Ctl.Enabled = True Then
          Select Case I
            Case 1
              BC = &H0&
            Case 2
              BC = &H80& 
            Case 3
              BC = &HFF&
            Case 4
              BC = = &HFF00FF
            Case 5, 6
              BC = &HCC99FF
            Case 7
              BC = &H800000
          End Select
          UserForm1.DesignBestEcImage1.BackColor = BC
       End If
    Next I

End Sub

Ok now I have problem selecting different color other than te black color, the script works only on the black color (see attached file). when I start the userform1 and click on the green square top left under the first tab the second userform2 appears and I select the black color the green button changes to black. If I pick different color it stays black. I am not sure where the goes getting stuck. The excel file is 845kb and little big to attach it.

Hello Walid66,

Can you attach your workbook? The images aren't helping me to understand your problem.

Thanks,
Leith Ross

the file is over the limit which 845 kb is there other way I can send it to you beside uploading.

Hello Walid66,

You can email me at LeithRoss@gmail.com.

Sincerely,
Leith Ross