skifte billede via vba makro

Teksten i Celle M5 styrer hvilket billede.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim shpTemp As Shape, lTop As Long, lTeft As Long, lWidth As Long, lHeight As Long
If Target.Address = "$M$5" Then
lTop = Range("AA2").Top ' placering af billedet
lleft = Range("AA2").Left
lWidth = 400 ' Billedets bredde
lHeight = 250 ' Billedets højde
ActiveSheet.Pictures.Delete
sti = ThisWorkbook.Path

Select Case Target
Case "Autumn"
Set shpTemp = ActiveSheet.Shapes.AddPicture("F:\Billeder\Wallpapers\" & "\autumn-falls.jpg", True, False, lleft, lTop, lWidth, lHeight)
Case "Fall"
Set shpTemp = ActiveSheet.Shapes.AddPicture("F:\Billeder\Wallpapers\" & "\Fall.jpg", True, False, lleft, lTop, lWidth, lHeight)
Case Else
Exit Sub
End Select
Set shpTemp = Nothing
End If
End Sub