How to change this code into private sub

[tantcu]

Hello,

I have a code below and wonder if you can modify this into private sub. Thanks

Sub macro2()


If ActiveSheet.Range("Y4") > 10 / 100 Then
    ActiveSheet.Shapes.Range(Array("Freeform 42")).Fill.ForeColor.RGB = vbGreen
    ElseIf ActiveSheet.Range("Y4") < 9.99 / 100 And ActiveSheet.Range("Y4") > 5.99 / 100 Then
    ActiveSheet.Shapes.Range(Array("Freeform 42")).Fill.ForeColor.RGB = vbYellow
    ElseIf ActiveSheet.Range("Y4") < 5.99 / 100 Then
    ActiveSheet.Shapes.Range(Array("Freeform 42")).Fill.ForeColor.RGB = vbRed

End If
End Sub

[judgeh59]

In general you can do that by doing this....

Private Sub Macro2()

but that depends on what you mean by private....

[tantcu]

I tried that and it does not work. I just want this code automatically execute without clicking button

[judgeh59]

so when you open the workbook (excel file) you want it to automatically launch this marco?....if true, change the name of the marco to Sub Auto_Open()

[tantcu]

Can you do it when the worksheet_change instead?

[judgeh59]

most definitely....you just have to choose what kind of "change" you are looking for....IE: if a change to this column or this row or this cell then run this macro....