VBA проблемы с поиском ворот

Question

Использование goalseek в VBA, чтобы найти оценку, которая мне нужна на последнем экзамене для получения оценки А. В настоящее время используется:

Function AFinalGrade(SetExamLocation As Range, SetGradeLocation As Range)
    ExamLocation = SetExamLocation.Address
    GradeLocation = SetGradeLocation.Address
    AFinalGrade = Range(GradeLocation).GoalSeek Goal:=.9, ChangingCell=:Range(ExamLocation))
End Function

Всякий раз, когда я пытаюсь выполнить это, я получаю синтаксическую ошибку. Любая помощь будет оценена.