VBA code that shows all 16.7million colours in colour palette

[Mkbonnr]

This program is a bit of fun to display all of the available colours in the palette. The program only gets to 65k colours before an error message is generate, but I would like the programme to run until it displays the full palette of 16.7million colours. Any ideas as to how to avoid the error message once 65k colours are reached? Code is posted below Best wishes, Richard

Option Explicit



Sub Coloured_cells3()



Dim i As Long

Dim j As Long

Dim k As Long



For i = 1 To 255

For j = 1 To 255

For k = 1 To 255





Cells(i*j, k).Interior.Color = RGB(i, j, k)



Next k

Next j

Next i



End Sub

 

[Fluff]

Hi & welcome to MrExcel.
As far as I know you can't. You will exceed the number of cell formats & that is not something that can be overcome.

 

[Mkbonnr]

That’s wonderfully helpful, thanks Fluff!

 

[Fluff]

You're welcome.