I am trying to color the cell yellow after the value is entered, it's not working.
The value goes in just fine but does not color the cell.
Thanks
wb2.Sheets(c.Offset(, 2).Value).Cells(20, Col) = c.Value
ElseIf UCase(c.Offset(, 1)) <> "LWOP-RG" And UCase(c.Offset(, 1)) <> "ABS" Then
wb2.Sheets(c.Offset(, 2).Value).Cells(23, Col) = c.Value
ElseIf UCase(c.Offset(, 1)) = "PTO" Or UCase(c.Offset(, 1)) = "Floating Holiday" Then
wb2.Sheets(c.Offset(, 2).Value).Cells(23, Col) = c.Value.Interior.ColorIndex = 6
Bookmarks