Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K8")) Is Nothing Then
macro1
End If
If Not Intersect(Target, Range("K14")) Is Nothing Then
macro2
End If
If Not Intersect(Target, Range("P13")) Is Nothing Then
macro3
End If
If Not Intersect(Target, Range("D8")) Is Nothing Then
macro4
End If
If Not Intersect(Target, Range("D25:D26")) Is Nothing Then
macro5
End If
If Not Intersect(Target, Range("K20")) Is Nothing Then
macro6
End If
End Sub
Sub macro1()
If WorksheetFunction.CountIf(Range("M8"), "<0") Then
ActiveSheet.Shapes("Picture 1").Visible = msoTrue
Else
ActiveSheet.Shapes("Picture 1").Visible = msoFalse
End If
End Sub
Sub macro2()
If WorksheetFunction.CountIf(Range("M14"), "<0") Then
ActiveSheet.Shapes("Picture 2").Visible = msoTrue
Else
ActiveSheet.Shapes("Picture 2").Visible = msoFalse
End If
End Sub
Sub macro3()
If WorksheetFunction.CountIf(Range("R13"), "<0") Then
ActiveSheet.Shapes("Picture 3").Visible = msoTrue
Else
ActiveSheet.Shapes("Picture 3").Visible = msoFalse
End If
End Sub
Sub macro4()
If WorksheetFunction.CountIf(Range("H8"), "<0") Then
ActiveSheet.Shapes("Picture 7").Visible = msoTrue
Else
ActiveSheet.Shapes("Picture 7").Visible = msoFalse
End If
End Sub
Sub macro5()
If WorksheetFunction.CountIf(Range("H25:H26"), "<0") Then
ActiveSheet.Shapes("Picture 8").Visible = msoTrue
Else
ActiveSheet.Shapes("Picture 8").Visible = msoFalse
End If
End Sub
Sub macro6()
If WorksheetFunction.CountIf(Range("M20"), "<0") Then
ActiveSheet.Shapes("Picture 9").Visible = msoTrue
Else
ActiveSheet.Shapes("Picture 9").Visible = msoFalse
End If
End Sub
Bookmarks