>>852
まだ書き間違いしてる
変な位置にダブルクォートが入ってるから、それでもエラーが出るはず
それはともかくStrを外してみ

yyyy = Worksheets("学期別カリキュラム").Cells(9,1).Value