Juan Cornetto
New Member
- Joined
- Mar 5, 2013
- Messages
- 44
I would like a different graphic to be displayed depending on the value entered into a cell (1-10).
I have the "copy paste" macro and can get it to run whenever the cell is changed using
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
Dim IntersectRange As Range
Set MyRange = Range("A4:A20")
Set IntersectRange = Intersect(Target, MyRange)
If IntersectRange Is Nothing Then
Exit Sub
Else: Call Macro5
End If
End Sub
but not for a specific value in the cell. Can anyone suggest how to amend the code ?
I have the "copy paste" macro and can get it to run whenever the cell is changed using
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
Dim IntersectRange As Range
Set MyRange = Range("A4:A20")
Set IntersectRange = Intersect(Target, MyRange)
If IntersectRange Is Nothing Then
Exit Sub
Else: Call Macro5
End If
End Sub
but not for a specific value in the cell. Can anyone suggest how to amend the code ?
