Macro Insert Picture Not Work Link File

[muhammad susanto]

hi all...

how to make this macro code worked...:

Dim cf1, cf2, cf3, cf4 As String

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Or IsEmpty(Target) Or (Target.Column <> 37 And Target.Row <> 10) Then
        Exit Sub
    Else
         sisipfoto
    End If
End Sub
Sub sisipfoto()
cf1 = "c:\f_bg2a\" & Range("ak10:AK10") & "a.jpg"
cf2 = "c:\f_bg2a\" & Range("ak10:AK10") & "b.jpg"
cf3 = "c:\f_bg2a\" & Range("ak10:AK10") & "c.jpg"
cf4 = "c:\f_bg2a\" & Range("ak10:AK10") & "d.jpg"
Image1.Picture = LoadPicture(cf1)
Image2.Picture = LoadPicture(cf2)
Image3.Picture = LoadPicture(cf3)
Image4.Picture = LoadPicture(cf4)
End Sub

i have tried, but not working..The picture not showing...
have you any idea?

m.susanto