Change Shape's Color upon entries in a Cell

[DesCmCn]

2 Things:
1. Can we rename Excel shapes' names in vba Excel 2013?

2. In the example below I have C6 for the cell to enter a value "Yes" in order to change the color of the star. I plan to make an addition to the code that says if "No" then make the star a (different) color. This is the point that I am at, it doesn't do anything, would like help, please:

#Sub ColorChangeStar()

Dim TempSht As String

For Each Worksheet In ActiveWorkbook.Worksheets
TempSht = Worksheet.Name
If ActiveSheets(ShapeChangeColor).Range("C6").Value = "Yes" Then
With ActiveSheet.Shapes.Range(Array("5-Point Star 1")).Select
.ThemeColor = xlThemeColorAccent6 '
.TintAndShade = -0.249977111117893 '
End With
End If
Next Worksheet

End Sub#

__
Thank you.

[LJMetzger]

Hi DesCmCn and welcome to ExcelForum.com,

When you post code, you need 'code tags', otherwise the moderators won't let us answer your questions. See the forum rules for instructions: http://www.excelforum.com/forum-rule...rum-rules.html


The following code (tested and working in Excel 2003) may help you:

Please Login or Register  to view this content.

Lewis

[DesCmCn]

Thank you LJMetzger,

My apologies for the mistake, this seemed to have gone over my head. I edited the post before.

I will try to implement your suggestion, as I have not been able to make it work yet.