Fill color dialog - go to

[Formula11]

The code below shows the fill colour dialog.
Is there a way to automatically go to the Custom tab as shown.

Sub colour_fill()
    Application.Dialogs(xlDialogPatterns).Show
End Sub

 

[Peter_SSs]

Wouldn't the suggestion in your previous thread help (changing Font.Color to Interior.Color)?
Excel Color Picker

 

[Formula11]

OK thanks, this was a long time ago ... but it seems to work.
Cheers.

 

[Peter_SSs]

You're welcome.