Есть необходимость в создании макроса для однотипных действий - VBA/Excel

Формулировка задачи:

Добрый день! Есть необходимость в создании макроса для однотипных действий. Последовательность действий такая: Открыть лист-вставить в него картинку с именем-перейти на следующий лист-вставить картинку с другим именем. VBA не трогал уже сто лет и все напрочь позабыл. Подскажите пожалуйста.

Решение задачи: «Есть необходимость в создании макроса для однотипных действий»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Dim p$, f$, ws As Worksheet
 
    p = "C:\Users\Admin\Pictures\" 'завершающий слэш обязателен
    f = Dir(p & "*.jp*g")
    Set ws = ActiveWorkbook.Worksheets(1)
    
    Do While Len(f)
       ws.Shapes.AddPicture p & f, msoFalse, msoTrue, ws.[C5].Left, ws.[C5].Top, -1, -1
       f = Dir
       Set ws = ws.Next
    Loop
End Sub
                        