danwagnerco

Option Explicit
Public Sub ZipFoldersInColumn()
    
    Dim wks As Worksheet
    Dim lngIdx As Long, lngErrorCode
    Dim strFullPath As String, strZipName As String, strEndFound As String, _
        strCommand As String, strTargetDir As String
    Dim blnEndFound As Boolean
    Dim wsh As WshShell
    Set wsh = New WshShell