Cell Colour Help

[A[L]C]

Hi All

I would like to find the working code for

Cells(ActiveCell.Row, 4).TintAndShade = 0.599993896298105

This doesnt work.

I copied it from the recorded code which used a selection and with selection code.

However as Im calling this from the selection change for the workbook, I cant use it.

How do I set the colour of the cell?

Thanks
Paul;

 

[A[L]C]

Cells(ActiveCell.Row, 4).Interior.Pattern = xlSolid
Cells(ActiveCell.Row, 4).Interior.PatternColorIndex = xlAutomatic
Cells(ActiveCell.Row, 4).Interior.ThemeColor = xlThemeColorAccent5
Cells(ActiveCell.Row, 4).Interior.TintAndShade = 0.599993896298105
Cells(ActiveCell.Row, 4).Interior.PatternTintAndShade = 0

solved