Вы можете сделать вещи немного проще, выбрав ячейку и вставив картинку ...
Sheets(1).Select
Range("B2").Select
ActiveSheet.Pictures.Insert("\\bk01fil0001\salesdb$\ImageUpload\NoImage.gif")
Я не думаю, что это когда-либо будет менее эффективным методом, как вы только захотитевставьте картинку на видимый лист.Я не вижу, что вам нужно будет выбирать лист более одного раза, если вообще
(Кроме того, звучит так, как будто вы пытаетесь автоматически вставить изображения в один столбец таблицы, в этом случаеЯ настоятельно рекомендую использовать обозначение Cells, как описано в тексте, сопровождающем это Excel Visual Basic видео )