Sub InsertirPictures()
' Help from YKY & RoryA
' Personal Note: Below file path needs to be changed to where the IR phots are located!!!
'
Const fPath = "C:\Users\576186\Pictures\"
Dim a As Variant, cel As Range, picPath As String
For Each a In Array("A38", "F38", "A54", "F54")...