VBA Need cell color in font color

[sksanjeev786]

Hi Team,

I need the cell color on the data........

Book1
	A	B	C	D	E	F	G
2	Unaided Brand Awareness	8%	9%	0%	9%	7%	-2%
3	Aided Brand Awareness	94%	95%	1%	91%	97%	6%
4	Message Association	18%	19%	1%	17%	22%	5%
5	Consideration Intent	45%	57%	12%	41%	69%	28%
6	Aided Brand Awareness	85%	88%	3%	86%	88%	2%
7	Total Ad Recall	47%	56%	9%	42%	71%	29%
8	Digital Ad Recall	21%	23%	2%	22%	49%	27%
Sheet1

 

[sksanjeev786]

Try this version:

Sub SomethinForSanjeev_3D()
'Crafted by Wookiee at MrExcel.com


Dim rngCell As Range

For Each rngCell In Selection

  With rngCell

    Select Case rngCell.Interior.Color

      Case Is = RGB(204, 51, 51), RGB(150, 193, 29), RGB(191, 191, 191)
     
        .Font.Color = .Interior.Color
        .Interior.Pattern = xlNone

      Case RGB(255, 150, 0)
     
        .Font.Color = RGB(0, 122, 192)
        .Interior.Pattern = xlNone

    End Select

  End With

Next rngCell

End Sub

Wow!!!!!

Thank you so much for your hard work on this..

Super Happy!!!!!!