Automatically change autoshape color to that of another autoshape

[T-bone]

Hi All

I have autoshapes (oval) in sheets 2-50, which changes color when you click
on them .
In sheet1 have a summary of sheets 2-50 (with 48 ovals)
I am trying to get the ovals in sheet1 to automatically change color to the
one selected in the corresponding sheet.

e.g. Sheet1 Oval1 = Sheet2 Oval1 (fill color)
Sheet1 Oval2 = Sheet3 Oval1 (fill Color)
and so on...

Can someone please help
T

 

[GTVT06]

Hello,
not sure if I fully understood your question, but I think this is what
you were trying to achieve?

Sub Test()
Dim n As Single
For n = 1 To Worksheets.Count
If Not Sheets(n).Name = ActiveSheet.Name Then
ActiveSheet.Shapes("Oval " & n -
1).Fill.ForeColor.SchemeColor = Worksheets(n).Shapes("Oval
1").Fill.ForeColor.SchemeColor
End If
Next n
End Sub

 

[T-bone]

Thanks for your response

i will just clarrfiy..

Oval1 in Worksheet1 need to automatically change to same color as Oval1 in
Worksheet2

i guess all the other crap i wrote is just distracting from the point

t