失礼しました。
間違えてました、以下のとおりだとエラーはでません。
×
yyyy = Str("Worksheet("学期別カリキュラム").Cells(9,1).Value)

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

ただ、エラーも出ませんが、出力もでません。。。