Помогите пожалуйста!!!
В чем ошибка?
'расчет молекулярной массы вискозиметрическим способом
'программа для печати
'
Option Explicit
Dim MMSheet As Object
Dim OutputRange As Object
Dim N As Integer
Dim Y1(10) As Double
Dim Y2(10) As Double
Dim Kon As Double
Dim Alf As Double
Dim Iks(10) As Double
Dim Y(10) As Double
'
Sub MMKuzne()
Dim M As Integer
Dim Fam As String
Dim Kyrs As String
Dim Pol As String
Dim Ras As String
Dim Tem As String
Set MMSheet =
Application.Workbooks("MMass.xls").Worksheets ("молекулярная масса")
Set OutputRange = MMSheet.Range("MMНачало")
ClearRange OutputRange