Уважаемые гуру Excel,  
 
Как в макросе из Excel можно обратиться в Блокнот?  
У меня есть пример, как можно обратиться в Word, но если я меняю в нижеприведенном тексте "Word.Application" на "Notepad.Application", то уже на этом шаге макрос выдает ошибку:  
 
Sub OpenWord()  
   Dim objWrdApp As Object, objWrdDoc As Object  
   'создаем новое приложение Word (а нужно Блокнот)  
   Set objWrdApp = CreateObject("Word.Application")  
   'Можно так же сделать приложение Word видимым. По умолчанию открывается в скрытом режиме  
--далее уже не очень важно, т.к. уже до этой строки всё стопорится  
   'objWrdApp.Visible = True  
   'открываем документ Word - документ "Doc1.doc" должен существовать  
   Set objWrdDoc = objWrdApp.Documents.Open("C:\Doc1.doc")  
   'Копируем из Excel диапазон "A1:A10"  
   Range("A1:A10").Copy  
   'вставляем скопированные ячейки в Word - в начала документа  
   objWrdDoc.Range(0).Paste  
   'закрываем документ Word с сохранением  
   objWrdDoc.Close True    ' False - без сохранения  
   'закрываем приложение Word - обязательно!  
   objWrdApp.Quit  
   'очищаем переменные Word - обязательно!  
   Set objWrdDoc = Nothing: Set objWrdApp = Nothing  
End Sub