В Excel-e работает, а в Worde почему то не хочет... - VB

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

Sub Macros()
Dim oExcel As New Excel.Application 'Запускаем Excel
oExcel.Visible = True 'Делаем его видимым
Dim oWbk As Excel.Workbook
Set oWbk = oExcel.Workbooks.Add() 'Создаем новую книгу
Dim oSheet As Excel.Worksheet
Set oSheet = oWbk.Worksheets.Add() ' Создаем новый лист
oSheet.Name = "Новый лист" 'Присваиваем ему имя "Новый лист"
Dim oRange As Range
Set oRange = Worksheets("Новый лист").Range("A1")
End Sub
Помогите люди...

Решение задачи: «В Excel-e работает, а в Worde почему то не хочет...»

textual
                            Листинг программы 
                        
                            <font color="blue">Sub</font> Macros()

<font color="blue">Dim</font> oExcel <font color="blue">As</font> <font color="blue">Object</font> 
<font color="blue">set</font> oExcel = CreateObject(<font color="teal">"Excel.Application"</font>) <font color="00AA00">'Запускаем Excel</font>

oExcel.Visible = True <font color="00AA00">'Делаем его видимым</font>

<font color="blue">Dim</font> oWbk <font color="blue">As</font> <font color="blue">Object</font>

<font color="blue">Set</font> oWbk = oExcel.Workbooks.Add() <font color="00AA00">'Создаем новую книгу</font>

<font color="blue">Dim</font> oSheet <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Set</font> oSheet = oWbk.Worksheets.Add() <font color="00AA00">' Создаем новый лист</font>

oSheet.<font color="blue">Name</font> = <font color="teal">"Новый лист"</font> <font color="00AA00">'Присваиваем ему имя <font color="teal">"Новый лист"</font></font>

<font color="blue">Dim</font> oRange <font color="blue">As</font> <font color="blue">Object</font>

<font color="blue">Set</font> oRange = Worksheets(<font color="teal">"Новый лист"</font>).Range(<font color="teal">"A1"</font>)

<font color="blue">End</font> <font color="blue">Sub</font>