Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Dim pShell As New Shell32.Shell, pItem As Shell32.FolderItem
     Dim pZip As Shell32.Folder3, pItems As Shell32.FolderItems3
     Dim pViewer As Object
     If Application.WorksheetFunction.IsText(Target.Value) Then
         If StrComp(".zip", Mid$(Target.Value, Len(Target.Value) - 3, 4), vbTextCompare) = 0 Then
             Set pZip = pShell.Namespace(Target.Value)
             Set pItems = pZip.Items
             pItems.Filter &H40, "*.jpg"
             Set pViewer = CreateObject("WScript.Shell")
             For Each pItem In pItems
                 pViewer.Run pItem.Path
             Next
             Cancel = True
         End If
     End If
End Sub