Макрос вставки фоток в таблице

[staniiislav]

Сообщение от maragva

Да, работает так, как необходимо. Спасибо вам, выручили.
Я что-нить должен?

Эт по желанию, если захотите что-нить подкинуть, завтра выложу кашелек яндекс.деньги и WebMoney.
А можно и просто Спасибо )))

[maragva]

У меня тут нарисовался маленький конфликт двух макросов.
Можно ли как-нить того, подружить их?

[ikki_pf]

у вас не "конфликт макросов", а элементарное незнание и нежелание разобраться в основах программирования.
в одном модуле две процедуры с одним и тем же именем существовать не могут.
необходимо объединить их. например, так:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Range(rg), Target) Is Nothing Then
  ВставкаКартинки
ElseIf Not Intersect(Target, Range("H7:H22,H29:H44,H51:H66,H73:H88,H95:H109,H115:H124,H130:H170")) Is Nothing Then
  Cancel = True 'чтобы не уйти в режим редактирования
  Target.Font.Name = "Marlett"
  If Target = vbNullString Then
    Target = "a"
  Else
    Target = vbNullString
  End If
End If
'Макрос1 ' двойной щелчок запускает макрос Макрос1
End Sub

[maragva]

Че-то не выходит у меня. Код вставил, но выдается ошибка