Trying to paste images to column of cells

I have a set of code to allow a user to click a command button, and get photos from a file in my documents. Images will be pasted into column "I" (I think). Keep running into errors. Any help would be nice.

Sub Get_Photos()
Dim tempFolder As FileDialog
Dim selectedItem As Variant
Dim obj As Object
Dim objFolder As Object
Dim ObjFile As Object
Dim x As Integer
Dim img As Picture

Set tempFolder = Application.FileDialog(msoFileDialogFolderPicker)

With tempFolder
.Title = "Select files:"
.AllowMultiSelect = True
.InitialFileName = Application.DefaultFilePath
If .Show <> -1 Then GoTo NextCode
selectedItem = .SelectedItems(1)
End With

NextCode:
Set obj = CreateObject("Scripting.FileSystemObject")
Set objFolder = obj.GetFolder(selectedItem)
x = 2

For Each ObjFile In objFolder.Files
With ActiveSheet
.img.Insert (ObjFile)
End With
x = x + 1
Next ObjFile

End Sub

Thanks. I tried and I got an error line at
'With Pictures.Insert(ObjFile.path)'
line.
(Run-time error '424': Object required)

Sorry, it should be with .Pictures
I've updated the code in post #2

Awesome! Thanks for the help

You're welcome.