Данные из листа excel в макрос VB

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

ситуация следующая: нужно написать макрос, который сохраняет текущую книгу в файл с именем c:\[Район][Номер].xls, где названия РАЙОН и НОМЕР хранятся в ячейке на листе этой книги. Как обратиться к данным книги из макроса vb?

Решение задачи: «Данные из листа excel в макрос VB»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> aa()
<font color="blue">With</font> ActiveSheet
.Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).Value = <font color="darkblue"><b>1</b></font>
x = .Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).Value
MsgBox x
<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Sub</font> bb()
Sheet1.Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).Value = <font color="teal">"2"</font>
MsgBox Sheet1.Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).Value
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Sub</font> cc()
[A1] = <font color="darkblue"><b>3</b></font>
x = [A1]
MsgBox x
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Sub</font> dd()
Sheets(<font color="darkblue"><b>1</b></font>).Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).Value = <font color="teal">"4"</font>
MsgBox Sheets(<font color="darkblue"><b>1</b></font>).Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).Value
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Sub</font> ee()
Sheets(<font color="teal">"Sheet1"</font>).Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).Value = <font color="teal">"5"</font>
MsgBox Sheets(<font color="teal">"Sheet1"</font>).Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).Value
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Sub</font> ff()
Range(<font color="teal">"A1"</font>) = <font color="darkblue"><b>6</b></font>
x = Range(<font color="teal">"A1"</font>)
MsgBox x
<font color="blue">End</font> <font color="blue">Sub</font>

                        