Unzip FilesBy VBA

If you need to Unzip files From a Zip Folder you can use this Codes :

Code:

---

Option Explicit

Sub UnzipAFile()
    Dim ShellApp As Object
    Dim TargetFile
    Dim ZipFolder

'  Target file & temp dir
    TargetFile = Application.GetOpenFilename _
        (FileFilter:="Zip Files (*.zip), *.zip")
    If TargetFile = False Then Exit Sub
 
    ZipFolder = Application.DefaultFilePath & "\Unzipped\"

'  Create a temp folder
    On Error Resume Next
    RmDir ZipFolder
    MkDir ZipFolder
    On Error GoTo 0

'  Copy the zipped files to the newly created folder
    Set ShellApp = CreateObject("Shell.Application")
    ShellApp.Namespace(ZipFolder).CopyHere _
      ShellApp.Namespace(TargetFile).items

    If MsgBox("The files was unzipped to:" & _
      vbNewLine & ZipFolder & vbNewLine & vbNewLine & _
      "View the folder?", vbQuestion + vbYesNo) = vbYes Then _
      Shell "Explorer.exe /e," & ZipFolder, vbNormalFocus
End Sub

---

http://excelpoweruser.blogspot.com/2...lesby-vba.html

can you post a function or procedure example to zip a file/files?