Change Cell Colour

[pella07]

Hi,

I'm looking for some help changing cell colours. What I want is to be able to select a number of cells and then press a button to change the selected cells into a certain colour?

Can someone please help with the coding?

Cheers.

 

[dafan]

Why not just use the Fill color button?

 

[pella07]

Because I will be using several different colours and do not wish to have to go hunting for such colours everytime.

 

[Datsmart]

Code such as this will change the selected cells to Red or Yellow:

Sub Macro4Red()
    With Selection.Interior
        .Color = vbRed
        .Pattern = xlSolid
    End With
End Sub

Sub Macro4Yellow()
    With Selection.Interior
        .Color = vbYellow
        .Pattern = xlSolid
    End With
End Sub

Assign the macros to separate buttons to change the selected cells background colors.

 

[pella07]

cheers.