I am using a select statement to add a fill colour to cells based upon the cell value. However, I am trying to avoid explicit specification of the fill colour.
Code: Select all
Select Case Rng.Value
Case "1132"
Rng.Offset(0, 23).Interior.Color = 'Copy fill from I12
Case "1137"
Rng.Offset(0, 23).Interior.Color = 'Copy fill from I13
Case "1138"
Rng.Offset(0, 23).Interior.Color = 'Copy fill from I14
Case "1140"
Rng.Offset(0, 23).Interior.Color = 'Copy fill from I15
Case "1141"
Rng.Offset(0, 23).Interior.Color = 'Copy fill from I16
End Select