Sub Test()
Sheet6.Select
Sheet6.Range("E24:W204,AI1:BA204").Select
Call SelectAllPicturesInSelectedRange(Sheet6)
End Sub
Sub SelectAllPicturesInSelectedRange(ws As Worksheet)
Dim oShape As shape
Dim rUserSel As Range
If TypeName(Selection) <> "Range" Then...