Cell and Object change
 

I am going to press my luck for today and ask one more question.

Using a macro is it possible to"

If sheet1 cell C1 interior color = 1 then sheet2 Object "Oval 1" interior
color = 1

Else
sheet1 cell C1 interior color = 38 then sheet2 Object "Oval 1" interior
color = 38

Hopefully this makes sense??

Thanks in advance,

Jake
--
Jake

Cell and Object change
 

Hi Jack (not that I would greet you that way on an airplane):

Try this:

Sub color_jack()
n = Sheets("Sheet1").Range("C1").Interior.ColorIndex
If n = 1 Or n = 38 Then
Sheets("Sheet2").Activate
ActiveSheet.Shapes("Oval 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = n + 7
End If
End Sub
--
Gary''s Student - gsnu200790


"JakeShipley2008" wrote:

I am going to press my luck for today and ask one more question.

Using a macro is it possible to"

If sheet1 cell C1 interior color = 1 then sheet2 Object "Oval 1" interior
color = 1

Else
sheet1 cell C1 interior color = 38 then sheet2 Object "Oval 1" interior
color = 38

Hopefully this makes sense??

Thanks in advance,

Jake
--
Jake