I found the follwing to get the interior color of a cell

How I could get the back color of a userfrom the same way?

I mean all the possible colors

Thanks


Sub ListColorIndexes()
Dim Ndx As Integer

For Ndx = 1 To 56
Cells(Ndx, 1).Interior.ColorIndex = Ndx
Cells(Ndx, 2).Value = Ndx
Next Ndx
End Sub

Abdul wrote:

I found the follwing to get the interior color of a cell

How I could get the back color of a userfrom the same way?

I mean all the possible colors

Thanks


Sub ListColorIndexes()
Dim Ndx As Integer

For Ndx = 1 To 56
Cells(Ndx, 1).Interior.ColorIndex = Ndx
Cells(Ndx, 2).Value = Ndx
Next Ndx
End Sub

Userform1.Backcolor=...


--