Invisible and/or Visible Picture

[cyee]

Dear All,

I have below code done by my ex colleague.
I trying to edit the code but failed

This macro allow me to visible & invisible the signature of inv sheet & pl sheet.
Now i would like to extent it to sheet BC, Sheet ADV & Sheet CO.

Can the expert here let me know how should i do about it?

Private Sub Workbook_Open()

    ActiveSheet.Shapes("Picture 17").Select
    Selection.ShapeRange.PictureFormat.Brightness = 0.5
    Selection.ShapeRange.PictureFormat.Contrast = 0.5
    Selection.ShapeRange.PictureFormat.CropLeft = 0#
    Selection.ShapeRange.PictureFormat.CropRight = 0#
    Selection.ShapeRange.PictureFormat.CropTop = 0#
    Selection.ShapeRange.PictureFormat.CropBottom = 0#
    ActiveSheet.Shapes("Picture 17").Visible = False
    Sheets("PL").Select
    ActiveSheet.Shapes("Picture 5").Select
    Selection.ShapeRange.PictureFormat.Brightness = 0.5
    Selection.ShapeRange.PictureFormat.Contrast = 0.5
    Selection.ShapeRange.PictureFormat.CropLeft = 0#
    Selection.ShapeRange.PictureFormat.CropRight = 0#
    Selection.ShapeRange.PictureFormat.CropTop = 0#
    Selection.ShapeRange.PictureFormat.CropBottom = 0#
    ActiveSheet.Shapes("Picture 5").Visible = False
    Sheets("INV").Select
    Range("H3").Select
    
End Sub