What VBA script will help with inserting a jpeg image column C, in the same row as the file name in column A?

Question

I have a VBA script that input the file name from a folder of images in column A. My next task is to insert the image in column C such that I have:

A B C
Image file name 1 Description 1 (Not from VBA) Image 1 (100px x 100px)

Image file name 2 Description 2 (Not from VBA) Image 2 (100px x 100px)

Image file name 3 Description 3 (Not from VBA) Image 3 (100px x 100px)

Image file name 4 Description 4 (Not from VBA) Image 4 (100px x 100px)

Image file name 5 Description 5 (Not from VBA) Image 5 (100px x 100px)

.....
Image file name n Description n (Not from VBA) Image n (100px x 100px)

Current code to complete column A:

Option Explicit

Sub LoopThroughFiles()

Dim oFSO As Object

Dim oFolder As Object

Dim oFile As Object

Dim i As Integer

i = 1

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder("C:\FILE PATH")

For Each oFile In oFolder.Files

Worksheets("Sheet1").Range("A" & i).Value() = oFile.Name 

i = i + 1

Next oFile

End Sub

Please help with code to add images to column c.

Answer 1

Below the line

Worksheets("Sheet1").Range("A" & i).Value() = oFile.Name

Insert

Worksheets("Sheet1").Shapes.AddPicture oFile.Name, False, True, Workheets("Sheet1").Range("C1").Left, Workheets("Sheet1").Range("C1").Top, 100, 100