Так у Вас небось Эксель локализованный! Надо писать:  
Excel.Application.ДвойнойЩелчок

Я плакалъ...

Есть защищенный файл Excel. Защитил его не я. По двойному клику на ячейке (объединенных ячейках) выполняется макрос (добавляются строки).  
 
Нужно автоматически добавить N-е количество строк. Т.е. на конкретной ячейке нужно сделать N-е количество двойных щелчков. Чтобы руками не щелкать, хочу сделать через макрос.  
 
А есть вариант хотя бы как-то вызвать событие двойного щелчка, на которое сработает макрос?

Юр, я так понимаю проект ВБА тоже защищен. Если нет, то я на грани истерики:-) Единственный способ перевести ВЕСЬ проект на язык локали. Тогда точно сработает. И побольше комментов. Как машина поймет - что надо делать?

Файл полностью защищен, в том числе и код.  
 
Вы попробуйте у себя просто сделать макрос:  
 
Sub Макрос1()  
Worksheets("Лист1").Activate  
Application.DoubleClick  
End Sub  
 
По описанию Microsoft, при выполнении должен совершаться двойной щелчок по текущей ячейке и вход в режим редактирования ячейки. Но, ничего не происходит.  
 
Почему? В этом весь вопрос. Поиски в интернете показывают, что я не один кто задавался этим вопросом. Но, ответа не предлагается.

dmention, Вы попробуйте вручную войти в режим редактирования ячейки и не выходя из этого режима запустить ЛЮБОЙ макрос. И теперь непонятно?

dmention, Вы тему, ссылку на которую я давал, посмотрели? В чём проблема? На событие даблклик вызываем InputBox, в котором укажем - сколько раз нужно выполнить некую процедуру. Скопируйте оба макроса в модуль листа и выполните ОДИН раз даблклик в ячейке А1:  
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
   If Not Intersect(Target, Range("A1")) Is Nothing Then  
       x = InputBox("Укажите количество повторов")  
       For i = 1 To x  
           Call Макрос1  
       Next  
   End If  
End Sub  
 
Sub Макрос1()  
   MsgBox "Выполняется Макрос1"  
End Sub  
 
И не нужно ничего имитировать. Так понятно?

По ссылке не ходили, Правила не читали... Ушёл из темы.

{quote}{login=dmention}{date=24.09.2012 09:53}{thema=}{post}KukLP, а Вы могли бы кроме иронии предложить что-то еще? Или сдаетесь? )){/post}{/quote}Сергей может и предложил бы, да вот только непонятно, для чего это нужно.  
И вообще это провокация, и на сайте не приветствуется.

Михаил правильно заметил - здесь на "слабо" брать не стоит. И я понимаю автора, поставившего защиту на свой проект. Как раз от "умельцев" из народа. Создайте свой проект и собирайте на здоровье со всех книг данные.    
По Вашему примеру и основываясь на совете Юрия. У Вас там объединения по две строки, значит выделяем по две и запускаем макрос:  
Public Sub www()  
   Dim n&: n = InputBox("Укажите количество строк")  
   n = n * 2  
   Selection.EntireRow.Copy 'если не надо копировать, закомментируйте  
   Selection.Resize(n).EntireRow.Insert xlDown  
End Sub

nircmd вам в помощь - консольное приложение, может эмулировать нажатие клавиш, перемещение мыши и много чего другого. Скачиваете, устанавливаете, в макросе  activeCell.select  
shell("nircmdc.exe sendmouse left dblclick")