VBA select group # from value in cell

[PPriest]

I am writing VBA code to refer to the group number in cell ("W5") of my worksheet. Instead of referring to ("Group 336") - I want to refer to the group using something along these lines: ("Group (Range("W5").Value)"):

Dim wsh As Worksheet: Set wsh = ActiveSheet
Dim shp As Shape: Set shp = wsh.Shapes("Group 336")
With shp.Fill
.ForeColor.RGB = RGB(255, 145, 0) ' Set the color
End With

 

[My Aswer Is This]

Try this:

Sub Group_Shape()
'Modified 4/27/2019 6:58:23 PM  EDT
ActiveSheet.Shapes("Group " & Range("W5").Value).Fill.ForeColor.RGB = RGB(255, 145, 0)
End Sub

 

[My Aswer Is This]

Let's try this instead:
It provides some error catching in case you have no shape by that name.

Sub Group_Shape()
'Modified  4/27/2019  7:19:40 PM  EDT
On Error GoTo M
ActiveSheet.Shapes("Group " & Range("W5").Value).Fill.ForeColor.RGB = RGB(255, 145, 0)
Exit Sub
M:
MsgBox "We had a problem." & vbNewLine & "You may not have a shape by that name"
End Sub

 

[PPriest]

My Aswer Is This - thank you. That's exactly what I was looking for! Appreciate the help.

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

My Aswer Is This - thank you. That's exactly what I was looking for! Appreciate the help.