Need to add Cells D7, F7, H7, J7, L7, N7, P7, R7 can't get it to work.
Private Sub Worksheet Calculate()
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Address <> "$B$7" Then Exit Sub
If (Target.Value >= 0) And (Target.Value < 0) Then Exit Sub
Pictures("Picture 7").Visible = (Target.Value >= 0)
Pictures("Picture 20").Visible = (Target.Value < 0)
End Sub
Private Sub Worksheet Calculate()
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Address <> "$B$7" Then Exit Sub
If (Target.Value >= 0) And (Target.Value < 0) Then Exit Sub
Pictures("Picture 7").Visible = (Target.Value >= 0)
Pictures("Picture 20").Visible = (Target.Value < 0)
End Sub