Felesleges a számláló, az"it" tartalmazza a file neveket

Sub Keptalloz()

Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

fDialog.AllowMultiSelect = True

fDialog.Title = "Select a file"
fDialog.InitialFileName = "C:\"
If fDialog.Show = -1 Then
For Each it In fDialog.SelectedItems
Selection.InlineShapes.AddPicture FileName:=it
Next it
End If

End Sub