Via macro ingevoerd plaatje veranderd

[Marco9999]

Hallo,
Via een macro importeer ik een handtekening, dit werkt allemaal prima.
Als ik dit bestand opsla en vervolgens op een andere PC open ben ik de handtekening kwijt, tenzij op deze PC de handtekening ook in C:\Werkmap\ staat.
Op een of andere manier wordt de macro bij openen opnieuw uitgevoerd. Kan dit voorkomen worden?
Alvast bedankt,
Marco

Sub Handtekening()
    ActiveSheet.Unprotect
    InsertPictureInRange "C:\Werkmap\Handtekening.bmp", _
        Range("di175:ew195")
    ActiveSheet.Protect
End Sub

Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As Double, l As Double, w As Double, h As Double
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    If Dir(PictureFileName) = "" Then Exit Sub
    ' import picture
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    ' determine positions
    With TargetCells
        t = .Top
        l = .Left
        w = .Offset(0, .Columns.Count).Left - .Left
        h = .Offset(.Rows.Count, 0).Top - .Top
    End With
    ' position picture
    With p
        .Top = t
        .Left = l
        .Width = w
        .Height = h
    End With
    Set p = Nothing
End Sub