Making VBA Macro to make shapes disappear if cell has certain value (Multiple Shapes)

So I have this formula that is currently working for a single image

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then _
Me.Shapes("Group 1").Visible = (Cells(1, 1).Value = 1)
End Sub

This is exactly what I need! The issue is, I have around 500-1000 images that I'm going to have to put on this document, is there an easy formula to put in here to get the wide range of images I named? They will be named Group 1-1000.

Also, I think I may have to have the numbers that decide if the image should be shown or not behind a formula. Would I have to use the Worksheet_Calculate function instead? And if so, what would that formula look like?