【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Office365

こんにちは

範囲B1:C4について
セルA1をダブルクリックすると昇順
セルA2をダブルクリックすると降順
に並べ替える（B列基準で）プログラムですが
下のようにすると，A1, A2それぞれ1回ずつは動作しますが2回目からは並べ替えしなくなります
MsgBoxは動くのでSortだけが1回しか動作しないという状況です
ブックを閉じて開けばまた1回ずつ動くようになります
どうすれば何回でも並べ替えられるようにできますか？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
MsgBox ("HI")
Range("B1:C4").Sort Range("B1")
End If
If Target.Address = "$A$2" Then
Range("B1:C4").Sort Range("B1"), xlDescending
End If
Cancel = True
End Sub