Trying To Modify VBA To Repeat This On All Sheets In The Workbook except a few

[Jingles3X]

Hi!
I have the code below, which is working to let me insert a picture in the specified location, but I am trying to have it repeat the process
on all sheets, excluding just a few. I have tried multiple ways to do it, with no success.
Can anyone make a suggestion on how to do this?

Sub GetPic()
Dim fNameAndPath As Variant
Dim img As Picture         
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
    Set img = ActiveSheet.Pictures.Insert(fNameAndPath)
    With img
       'Resize Picture to fit in the range....
       .Left = ActiveSheet.Range("AC1").Left
       .Top = ActiveSheet.Range("AC1").Top
       .Width = ActiveSheet.Range("AC7:AI7").Width
       .Height = ActiveSheet.Range("AC1:AC7").Height
       .Placement = 1
       .PrintObject = True
       End With

End Sub

 

[Jingles3X]

My mistake, that line should be

.DrawingObject.PrintObject = True

I seem to be having a different issue now....
The RED line below is giving me a "Type 13", Mismatch error.
I have tried to figure out what's going on, but not successfully.

Sub Print_Sheets()
Dim I As Long, c As Long
Dim SheetArray() As String

    With ActiveSheet.ListBoxSh

        For I = 0 To .ListCount - 1
            If .Selected(I) Then
                ReDim Preserve SheetArray(c)
                SheetArray(c) = .List(I)
                c = c + 1
            End If
        Next I

        [COLOR=rgb(226, 80, 65)]Sheets(SheetArray()).PrintPreview[/COLOR]
        
        'If you'd like to print out
        'Sheets(SheetArray()).PrintOut

    End With

End Sub

 

[GWteB]

There are a few possible causes for that:
- one of the sheets doesn't exist due to a typo in its name;
- one of the sheets is hidden / very hidden;
- the SheetArray variable contains an Empty element.