>>30
If Worksheets(シート名).Shapes("Image" & カード番号).Visible = False Then