Insert multiple Photos MACRO

Hello all,
I use the following macro (found it in a forum) below to insert photos in Column A of my worksheet and it works great!
But I need a MACRO that will load hundreds of photos all down Column A. what code needs to be added in order for that to work? Im just a novice and have been searching for a Macro I can copy that will let me load hundreds of photos automatically. Thank you!!

Sub InsertPicture()
Dim sPicture As String, pic As Picture
 
sPicture = Application.GetOpenFilename _
    ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
     , "Select Picture to Import")
 
If sPicture = "False" Then Exit Sub
 
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
    .ShapeRange.LockAspectRatio = msoFalse
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Placement = xlMoveAndSize
End With
 
Set pic = Nothing
 
End Sub