Не хочет отрабатывать( может кто знает в чем проблеме, пи запуске ругается на tRow = говорит почимуто не может найти проект или библиотеку( (Can’t find project or library)

Пожете проверить работу в прложеном файле...

код:

Private Sub CommandButton1_Click()

If ActiveCell.Row < 4 Or IsEmpty(ActiveCell.Value) Then
MsgBox ("Укажите объект")
Exit Sub
End If

tRow = ActiveCell.Row

Rows(tRow).Copy (Sheets("Буфер").Rows(1))

tPath = ActiveWorkbook.Path
KillFile ("Акт.xls")
Workbooks.Open (tPath + "\Акт.xlt")

' сохранить
ActiveWorkbook.SaveAs (tPath + "\Акт.xls")
' печать
If cbPrint Then
ActiveSheet.PrintOut From:=1, To:=1
If MsgBox("Переверните лист", vbOKCancel) = vbOK Then
ActiveSheet.PrintOut From:=2, To:=2
End If
End If
' выход
If cbExit Then
ActiveWorkbook.Close
End If

KillFile ("Решение.doc")
Dim appWD As Object
Set appWD = CreateObject("Word.Application")

appWD.Documents.Open (tPath + "\Решение.dot")
appWD.Visible = True

'

appWD.ActiveDocument.SaveAs (tPath + "\Решение.doc")

If cbPrint Then
appWD.ActiveDocument.PrintOut
End If

If cbExit Then
appWD.Quit
End If

End Sub