Помогите изменить код для импорта изображения из папки с редактируемым xls файлом

[Stfu74]

в выделенные ячейки вставляются изображения, на данный момент из конкретной папки

Sub InsertPictures()
Const PATH = "C:\Users\LogyCom\Desktop\z\DCIM\142___11\" 
Dim c As Range
For Each c In Selection
With ActiveSheet.Shapes.AddPicture(PATH & c, _
msoFalse, msoTrue, c(, 1).Left, c(, 1).Top, 1, 1).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 152.2
Selection.ShapeRange.Width = 183.75
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
c.RowHeight = Height + 150
End With
Next
End Sub

Помогите, пожалуйста, исправить код для импорта изображений из папки где находится сам редактируемый файл Excel

[IgorGO]

Dim path$:  path = thisworkbook.path & application.pathseparator

[Stfu74]

Огромное спасибо!