kingpin1984
New Member
- Joined
- Jan 14, 2013
- Messages
- 5
Hi There,
I have written some code in vba which works brilliantly on my excel version however, when excel is opened in 2003 the picture functionality no longer works.
What I want is for the pictures to be displayed depending on the cell value. Is there something I need to do to enable this to work in excel 2003 as well as 2007?
Thanks for reading!
I have written some code in vba which works brilliantly on my excel version however, when excel is opened in 2003 the picture functionality no longer works.
What I want is for the pictures to be displayed depending on the cell value. Is there something I need to do to enable this to work in excel 2003 as well as 2007?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)</SPAN>
ActiveSheet.Shapes("I1").Visible = False</SPAN>
ActiveSheet.Shapes("IR1").Visible = False</SPAN>
ActiveSheet.Shapes("F1").Visible = False</SPAN>
ActiveSheet.Shapes("E1").Visible = False</SPAN>
ActiveSheet.Shapes("W1").Visible = False</SPAN>
ActiveSheet.Shapes("S1").Visible = False</SPAN>
If Range("N4") = "England" Then ActiveSheet.Shapes("E1").Visible = True</SPAN>
If Range("N4") = "France" Then ActiveSheet.Shapes("F1").Visible = True</SPAN>
If Range("N4") = "Ireland" Then ActiveSheet.Shapes("IR1").Visible = True</SPAN>
If Range("N4") = "Wales" Then ActiveSheet.Shapes("W1").Visible = True</SPAN>
If Range("N4") = "Italy" Then ActiveSheet.Shapes("I1").Visible = True</SPAN>
If Range("N4") = "Scotland" Then ActiveSheet.Shapes("S1").Visible = True</SPAN>
End Sub</SPAN>
Thanks for reading!