シートを選択表示させた後に、ｍｓｇｂｏｘを表示

Excel2007でマクロ作成中の初心者です。 以下のコードを実行すると、最初すぐにメッセージボックスが現れ 「・・・・度単価です。更新しますか？」と表示されます。 仕方なくイェスボタンを押すと、はじめて計算シートが表示されます。 これを、最初にシート計算が選択されたあとに、メッセージボックスを 表示させたいのですかどうしたらよろしいですか？ Private Sub CommandButton3_Click() Sheets("計算").Select Dim myBtn As Integer Dim myMsg As String, myTitle As String myMsg = Format(Range("G2").Value, "ggge年m月") & "度単価です。更新しますか？" myTitle = "更新の確認" myBtn = MsgBox(myMsg, vbYesNo + vbExclamation, myTitle) If myBtn = vbYes Then '単価更新 End If End Sub