This code was written for me by @Jaafar Tribak .
I want to update it at the line below but I am not able to do it as I want.
sFolderPath = ThisWorkbook.Path & .PathSeparator & "PASSPORT PICTURES" & .PathSeparator
Instead of compressing from the parent folder, "PASSPORT PICTURES", I have...