Inserting Images into Worksheets / VBA Loop Active Sheets

Hello all,
thanks already in advance to try and help me with this.
I have a formula that inserts images based on a cell and it works fine if I activate this for the different Sheets individually -
now is there a way to apply this to all worksheets at the same time?

Sub Picture()
Range("A1").Select
Dim picname As String
picname = "G:\BUYING\Non Food\EK-VK Kalkulation\2019\6\SO" & Range("B4") & "_VTF.jpg" 'Link to the picture
ActiveSheet.Pictures.Insert(picname).Select
With Selection
.Left = Range("A1").Left
.Top = Range("A1").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 500#
.ShapeRange.Width = 750#
.ShapeRange.Rotation = 0#
End With
Range("A1").Select
Application.ScreenUpdating = True
Exit Sub
ErrNoPhoto:
MsgBox "Unable to Find Photo" 'Shows message box if picture not found
Exit Sub
Range("P20").Select


End Sub

Hello

- unfortunately this gives me an error message -

Run-time Error 1004 / Application defined or object defined error!

Hello

- unfortunately this gives me an error message -
Run-time Error 1004 / Application defined or object defined error!

Hello
- unfortunately this gives me an error message -
Run-time Error 1004 / Application defined or object defined error!

Hello
- unfortunately this gives me an error message -
Run-time Error 1004 / Application defined or object defined error

Is there maybe another way to automatically add images per sheet based on a cell in B4 (image name) and insert in A1?