One way:

With shtMaster.Range("INITIALS_Base").Offset(Oper_Init, Day)
.Value = 3
.Interior.ColorIndex = 40
End With


In article ,
"Pellechi" wrote:

To Anyone,

I'm changing the value of a cell in a table to 3 using the working code
<snippet below ...
I'd like to also change the cell's color to TAN (40) at the same time in my
loop ...

QUESTION: Can someone advise how to reference the cell's interior color and
change it to TAN at the same time?
--------------------------------------------
' Assign the number 3 to the cell
shtMaster.Range("INITIALS_Base").Offset(Oper_Init, Day).Value = 3

Thanks,

Jim Pellechi