Sub CompressMultiplePictures()
Dim fileNames As Variant
Dim pic As Picture
Dim r As Range
Dim cellAddresses As Variant
Dim i As Long
' Define the target cell addresses for inserting pictures
cellAddresses = Array("B5", "D5", "B9", "D9", "B18", "D18", "B22", "D22"...