Макрос (VBA) в Excel 2007

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

Нужно через VBA в Excel 2007 выполнить такое задание:

"Найти корень 5-ой степени из произведения чисел в ячейках: С1,С2,С3,С4 и вывести результат в Msgbox(+ корень должен извлекаться из отрицательного числа)".

Вот мой код:

zadanie_4()
a = CDbl(Range())
b = CDbl(Range())
c = CDbl(Range())
d = CDbl(Range())
x = (a * b * c * d) ^ .
MsgBox (x)
 

Если в ячейки вводить отрицательные числа, то он не работает. И подчёркивает строчку: x = (a * b * c * d) ^ 0.2 (не пойму что в ней не так((( )
Уважаемые Дамы и Господа, я знаю, что всё элементарно, но я где-то встал в тупик и не могу понять ошибки. Пожалуйста исправьте.))

Решение задачи: «Макрос (VBA) в Excel 2007»

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

                            <font color="blue">Sub</font> r()
Application.Workbooks.Add.Worksheets(<font color="darkblue"><b>1</b></font>).<font color="blue">Name</font> = ThisWorkbook.Worksheets(<font color="darkblue"><b>1</b></font>).<font color="blue">Name</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        