Insert Picture To Cell in Col A with pic name in Col B

Originally Posted by acraens

How would i get this code working for excel 2010

try this,

Sub Button1_Click()
    Dim fs, f, f1, fc, s
    Dim folderspec, r As Long

    folderspec = "C:\Users\Dave\Pictures\Family Pictures\Vince Morrison Child\"

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    r = 2

    For Each f1 In fc

        Cells(r, 2) = f1
        r = r + 1
    Next f1

End Sub