Insertar una carpeta con mas de 100 imágenes en excel utilizando una macro

[Marco Palacios]

Quiero insertar imágenes desde una carpeta con una macro en un hoja de Excel

este es el código cuando lo ejecuto me marca error 438, a que se debe ese error.

</IniciaCodigo>

Sub fotos()

Dim ImgArray(158) As Variant

Dim x As String

Dim fotos As Long

x = Dir("C:\CL_0121\*.jpg")

Do

fotos = fotos + 1

ImgArray(fotos) = x

x = Dir

Loop Until x = ""

ActiveCell.Value = x

For i = 1 To fotos

Selection.InlineShapes.AddPicture _

Filename:="C:\CL_0121\" & _

ImgArray(i), LinkToFile _

:=False, SaveWithDocument:=True

Next i

End Sub

</ FinCodigo>

Que es lo que esta mal