Error show in VBA to create Zip files of a selected folder

Hi I have a code below for zipping a folder to a specified location to save.    Sub Zipping_the_File() Dim source, zipfile As String source = "C:\Users\Documents\Client\" zipfile = "C:\Work Area...