Case Select .Interior.Color = RGB(195.195,195) for range

Good day,
I have the following code in a userform:

Please Login or Register  to view this content.

I need to add for each Case a different range .Interior.Color = RGB(195.195,195)

So
Case1 would run the code but also add the color to the ActiveCell.Row(C and D) = RGB(195.195,195)
Case2 would run the code but also add the color to the ActiveCell.Row(A-C and D) = RGB(195.195,195)
Case3 would run the code but also add the color to the ActiveCell.Row(A and B) = RGB(195.195,195)
Case4 would run the code but also add the color to the ActiveCell.Row(A-B and C) = RGB(195.195,195)

How would I insert this in each case?

.............Bump

I am playing with something like:

Please Login or Register  to view this content.

but giving me an error