EXCEL VBA - RUN TIME ERROR '91': OBJECT VARIABLE OR WITH BLOCK VARIABLE NOT SET

Michetu 

Does this work?

Sub Cont_AttachThum()
    Dim PicFile As FileDialog
    Set PicFile = Application.FileDialog(msoFileDialogOpen)
    With PicFile
        .Title = "Select a Contact Picture"
        .Filters.Add "All Picture Files", "*.jpg;*.jpeg;*.gif;*.png;*.bmp;*.tiff", 1
        If .Show <> -1 Then GoTo NoSelection
        Sheet2.Range("N4").Value = .SelectedItems(1) 'Put File name in N4
    End With
    With Sheet2
        If .Range("B3").Value = False Then
            .Range("L" & .Range("B2").Value).Value = .Range("N4").Value
        End If
    End With
    Cont_DisplayThumb

NoSelection:
End Sub

Sub Cont_DisplayThumb()
    Dim PicPath As String
    Dim pic As Picture
    With Sheet2
        On Error Resume Next
        .Shapes("ThumbPic").Delete  'Delete thumbnail picture (if any)
        On Error GoTo 0
        PicPath = .Range("N4").Value 'Picture Path
        Set pic = .Pictures.Insert(PicPath)
        With pic.ShapeRange
            .LockAspectRatio = msoTrue
            .Height = 80
            .Name = "ThumbPic"
            .Left = Sheet2.Range("J5").Left - 20
            .Top = Sheet2.Range("J5").Top + 10
        End With
    End With
End Sub