With ActiveSheet.ActiveCell
.Interior.ColorIndex = 5
.Font.ColorIndex = 1
End With

"Steven" wrote:

What code do I use on a command button that will let the user choose a color
for interior and font.

Thanks you,

Steven