シートの選択表示が、正常にできない

質問

excel2007でマクロ作成中の初心者です。
困ってます助けてください。
現在、Sheets("合計表")というシートがアクティブになっています。
そして、
Private Sub CommandButton4_Click()
Sheets("単価表").Select
End Sub

のコードを実行すると、Sheets("単価表")というシートがアクティブになります。
ところが、これに　MsgBoxをつけると
--------------------------------------
Private Sub CommandButton4_Click()
Sheets("単価表").Select
Dim myBtn As Integer
Dim myMsg As String, myTitle As String
myMsg = "単価表を編集しますか？"
myTitle = "単価表の確認"
myBtn = MsgBox(myMsg, vbYesNo + vbExclamation, myTitle)
If myBtn = vbYes Then
’ 単価表の編集
Sheets("単価表").Select
End If
End Sub
---------------------------------
Sheets("合計表")というシートが表示されたままで、メッセジボタンが表示され、Sheets("単価表")に変更されません。
そして、Ｎｏボタンを押すと、はじめて、Sheets("単価表").が表示されます。

そこで、最初に　Sheets("単価表")が表示されてから、Msgボタンが表示されるように
したいのです。どうコードをかえたらいいでしょうか。

回答No.1

DreamyCat · ベストアンサー

2007版ではありませんが
白紙のシートでやってみたところ
何の問題もありませんでした。

　おそらくデータ量が非常に多いシートで
切り替えに負荷がかかっているのではないでしょうか。
（XP機でメモリーが不足気味とか）
それと、
昔は２００７版は他の版よりシートやセルの操作でわずかに時間がかかりました。
今もそうなのかもしれません。
　そこで、
Sheets("単価表").Select
DoEvents :DoEvents

のように１～３個ほどDoEventsを入れてみたらどうでしょう。

お礼

ありがとうございます。DoEvents :DoEvents　よくわかりませんが入れてみましたら偶然かもしれませんがうまくいくようになりました。