I added CODE tags to format your macro - you can use the [#] icon to insert them
After inserting missing spaces and indenting, I'm guessing you probably wanted something like this
Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Address = "$E$10" Then
If Target.Value >= -0.1 And Target.Value <= 0.1 Then
ActiveSheet.Shapes.Range(Array("Oval 1")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = RGB(0, 176, 80)
End With
ElseIf Target.Value >= -0.29 And Target.Value < 0.29 Then
ActiveSheet.Shapes.Range(Array("Oval 1")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = RGB(255, 255, 0)
End With
Else
ActiveSheet.Shapes.Range(Array("Oval 1")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = RGB(255, 0, 0)
End With
End If
ElseIf Target.Cells(1, 1).Address = "$N$10" Then
If Target.Value >= -0.1 And Target.Value <= 0.1 Then
ActiveSheet.Shapes.Range(Array("Oval 2")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = RGB(0, 176, 80)
End With
ElseIf Target.Value >= -0.29 And Target.Value < 0.29 Then
ActiveSheet.Shapes.Range(Array("Oval 2")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = RGB(255, 255, 0)
End With
Else
ActiveSheet.Shapes.Range(Array("Oval 2")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = RGB(255, 0, 0)
End With
End If
End If
Range("A1").Select
End Sub
But I think you could simplify
Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
Dim shpOval As Shape
Dim r As Range
Set r = Target.Cells(1, 1)
If r.Address = "$E$10" Then
Set shpOval = ActiveSheet.Shapes("Oval 1")
ElseIf r.Address = "$N$10" Then
Set shpOval = ActiveSheet.Shapes("Oval 2")
Else
Exit Sub
End If
If r.Value >= -0.1 And r.Value <= 0.1 Then
shpOval.Fill.ForeColor.RGB = RGB(0, 176, 80)
ElseIf r.Value >= -0.29 And r.Value < 0.29 Then
shpOval.Fill.ForeColor.RGB = RGB(255, 255, 0)
Else
shpOval.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
Range("A1").Select
End Sub