Help with Cell Color Change Macro

[Merlin610]

I need help with a macro that changes the color of a cell column range depending on the words in a cell out of the range.

For example, if B12="JSP-MIC" the color of B13-B19 should be yellow,
If B12="JSP-AOUT" the color of the range should be green,
If B-12=". . ." the color of the range should be grey.

There are additional values for B12, but those are the only three colors.

I have started several times, but I am getting nowhere fast.

Thanks

 

[ZAX]

I need help with a macro that changes the color of a cell column range depending on the words in a cell out of the range.

For example, if B12="JSP-MIC" the color of B13-B19 should be yellow,
If B12="JSP-AOUT" the color of the range should be green,
If B-12=". . ." the color of the range should be grey.

There are additional values for B12, but those are the only three colors.

I have started several times, but I am getting nowhere fast.

Thanks

Is this code helping you??

Sub ColorRange()
Select Case Range("B12").Value
Case "JSP-MIC"
Range("B13:B19").Interior.Color = vbYellow
Case "JSP-AOUT"
Range("B13:B19").Interior.Color = vbGreen
Case ". . ."
Range("B13:B19").Interior.Color = 46
End Select
End Sub

ZAX

 

[Merlin610]

No, sorry. That doesn't do it.

 

[ZAX]

No, sorry. That doesn't do it.

Then what is it you want??
Be more specific PLZ
ZAX