Запуск Макроса по значению ячейки

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address <> "$A$1" Then Exit Sub
    Select Case Target.Value
        Case 1
            Call Macro1
        Case "codenet"
            Call Macro2
        Case Else
            Call Macro3
    End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim w1 As Worksheet, w2 As Worksheet, i As Long

    If Target.Address <> "$B$45" Then Exit Sub
    Set w1 = ThisWorkbook.Worksheets("Sheet1")
    Set w2 = ThisWorkbook.Worksheets("Sheet2")
   
    i = 1
    While w2.Cells(i, 1).Value <> Target.Value And w2.Cells(i, 1).Value <> ""
        i = i + 1
    Wend
    If w2.Cells(i, 1).Value = "" Then
        w2.Cells(i, 1).Value = Target.Value
     End If
   
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address <> "$G$7" Then Exit Sub
    Select Case Target.Value
        Case 1
            Call Red
        Case 2
            Call Blue
    End Select
End Sub

Sub Red()

    Sheets(1).Select
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .ColorIndex = 3
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = 3
        .MarkerForegroundColorIndex = 3
        .MarkerStyle = xlDiamond
        .Smooth = True
        .MarkerSize = 5
        .Shadow = False
    End With
    Sheets(2).Select
End Sub

Sub Blue()

    Sheets(1).Select
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .ColorIndex = 5
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = 5
        .MarkerForegroundColorIndex = 5
        .MarkerStyle = xlDiamond
        .Smooth = True
        .MarkerSize = 5
        .Shadow = False
    End With
    Sheets(2).Select
End Sub