VBA実行後、キー入力ができない

質問

こんにちは。エクセル2007を使用しています。
下記の行削除のコードを実行した直後、
Enterキー以外はどのキーを押しても反応せず、
一度どこかのセルをクリックすると、ようやく全ての
キーが反応します。どこかコードに問題はあるでしょうか。
よろしくお願いいたします。

Private Sub cmd行削除_Click()
Application.EnableEvents = False
Application.ScreenUpdating = False
If Selection.Row = 1 Then
Range("A1").Select
MsgBox "削除したい行にカーソルを合わせてください。", vbOKOnly, _
"指定したカーソル行が削除されます。"
Exit Sub
End If
If Selection.Row > 1 Then
Selection.EntireRow.Delete Shift:=xlUp
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

回答No.1

watabe007 · ベストアンサー

ActiveCell.Activate　を付け加えてください

Private Sub cmd行削除_Click()
　　ActiveCell.Activate
　　Application.EnableEvents = False
　　Application.ScreenUpdating = False

お礼

7452751さん、こんにちは。
早速の回答いただき、無事解決しました！
どうもありがとうございました。