It shouldn't be - I certainly didn't add one to it, not does it ask me for one when I download it again.
The basic code is in the Pending sheet:
Code:
Private Sub Worksheet_Change(ByVal Target As Range) Dim pic As Picture
Dim varPic
If Not Intersect(Range("B38"), Target) Is Nothing Then
On Error Resume Next
Me.Pictures("SigPic").Delete
On Error GoTo 0
If Len(Range("B38").Value) > 0 Then
varPic = Application.VLookup(Range("B38").Value, Sheet3.Range("Pictable"), 2, False)
If IsError(varPic) Then
MsgBox "Name does not match a signature name"
Else
Sheet3.Pictures(varPic).Copy
Me.Range("B35").PasteSpecial xlPasteAll
Me.Pictures(Me.Pictures.Count).Name = "SigPic"
End If
End If
End If
End Sub
then just need to correct the picture names and employee names in the table and redefine the pictRange.
Bookmarks