メッセージボックスで条件分岐

res = MsgBox(heat_no & " ヒート目が終了したので、印刷ページに移って良いですか？ " & vbCrLf & _
"印刷のページに進む ----> ＯＫ" & vbCrLf & _
"手動で選択する。 ------>キャンセル", vbOKCancel, "次に何をしますか？")

If res = vbCancel Then End
If res = vbOK Then
k = Workbooks("mrec2.xls").Sheets("管理表").Range("k12").Value
Workbooks("mrec1.xls").Activate
Sheets("印刷").Activate
Range("c3") = k
End If