Combining Multiple Subs Within Worksheet_Change

[Sean Ross]

Hello,

I understand that it's not possible to have multiple subs within a worksheet_change.
I've been pulling my hair out trying to combine these subs .

The sub changes the colour of an autoshape based on the difference between the target cells (thanks to user MickG). I'm trying to multiply this for several shapes with different corresponding cells.

Perhaps it's not possible? Any help you could offer would be most appreciated!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tar As Range
Set Tar = Range("U121") 'Formula result cell
If Not Intersect(Target, Range("T101:T121")) Is Nothing Then
    If IsNumeric(Tar.Value) Then
        If Tar.Value > 0.4 Then
            ActiveSheet.Shapes("FreeForm 11").Fill.ForeColor.RGB = vbRed
        ElseIf Tar.Value <= 0.4 And Tar.Value > 0.05 Then
            ActiveSheet.Shapes("FreeForm 11").Fill.ForeColor.RGB = vbYellow
        ElseIf Tar.Value <= 0.05 Then
            ActiveSheet.Shapes("FreeForm 11").Fill.ForeColor.RGB = vbGreen
        End If
    End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tar As Range
Set Tar = Range("U117") 'Formula result cell
If Not Intersect(Target, Range("T101:T117")) Is Nothing Then
    If IsNumeric(Tar.Value) Then
        If Tar.Value > 0.4 Then
            ActiveSheet.Shapes("FreeForm 9").Fill.ForeColor.RGB = vbRed
        ElseIf Tar.Value <= 0.4 And Tar.Value > 0.05 Then
            ActiveSheet.Shapes("FreeForm 9").Fill.ForeColor.RGB = vbYellow
        ElseIf Tar.Value <= 0.05 Then
            ActiveSheet.Shapes("FreeForm 9").Fill.ForeColor.RGB = vbGreen
        End If
    End If
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tar As Range
Set Tar = Range("U123") 'Formula result cell
If Not Intersect(Target, Range("T101:T123")) Is Nothing Then
    If IsNumeric(Tar.Value) Then
        If Tar.Value > 0.4 Then
            ActiveSheet.Shapes("Group 15").Fill.ForeColor.RGB = vbRed
        ElseIf Tar.Value <= 0.4 And Tar.Value > 0.05 Then
            ActiveSheet.Shapes("Group 15").Fill.ForeColor.RGB = vbYellow
        ElseIf Tar.Value <= 0.05 Then
            ActiveSheet.Shapes("Group 15").Fill.ForeColor.RGB = vbGreen
        End If
    End If
End If
End Sub