Skift billede

Jeg har et regneark hvor den i det ene ark skifter mellem to billeder afhængig af en værdi der afhænger af en værdi i et andet ark. Vil gerne have så billederne skifter når jeg ændre værdien i det andet ark.


Her er koden den står i det første ark.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

ActiveSheet.Shapes("2LMHu1354").Visible = False
ActiveSheet.Shapes("2LMHo1354").Visible = False

Select Case Range("A16")
    Case 1: ActiveSheet.Shapes("2LMHu1354").Visible = True
    Case 2: ActiveSheet.Shapes("2LMHo1354").Visible = True
End Select

End Sub