Billede skift på bagrund af celle input

noget som det her men det virker ikke helt endnu... er ved at finde ud af noget...

Private Sub Worksheet_Change(ByVal Target As Range)
For R = 24 To 43
If Target.Address = Cells(R, 4) Or Target.Address = Cells(R, 5) Then
C = Cells(R, 4)
U = Cells(R, 5)
D = 1
Select Case C
    Case C > U: Image(D).Picture = LoadPicture("C:\Documents and Settings\Bruger\Dokumenter\Billeder\1.jpg")
    Case C = U: Image(D).Picture = LoadPicture("C:\Documents and Settings\Bruger\Dokumenter\Billeder\2.gif")
    Case C < U: Image(D).Picture = LoadPicture("C:\Documents and Settings\Bruger\Dokumenter\Billeder\3.jpg")
    Case Else
End Select
D = D + 1
End If
Next R
End Sub

Hvis du laver kontrolelement billeder, et for hver række hvor du vil have dem...
skulle den virke nu ved truk på en knap..
Private Sub CommandButton1_Click()
Hvor = "C:\Documents and Settings\Bruger\Dokumenter\Billeder\" 'Til passes
Dim d As Variant
d = 1
For R = 24 To 43'række 24 til 43
Cc = Cells(R, 4)'Kolonne D
Uc = Cells(R, 5)'Kolonne E

If Cc > Uc Then
  ActiveSheet.OLEObjects("Image" & d).Object.Picture = LoadPicture(Hvor & "Happy.jpg")
End If
If Cc < Uc Then
  ActiveSheet.OLEObjects("Image" & d).Object.Picture = LoadPicture(Hvor & "Care.jpg")
End If
If Cc = Uc Then
  ActiveSheet.OLEObjects("Image" & d).Object.Picture = LoadPicture(Hvor & "Sad.jpg")
End If
d = d + 1
Next R

End Sub