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
Bookmarks