ダブルクリックイベント。複数の離れた範囲の設定 EXCEL VBA

以下のマクロをシートモジュールに貼り付けます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　 If Not Application.Intersect(Target, Range　　　　　("AT14:AT88,AZ14:AZ88,CY14:CY88,DF14:DF88,DM14:DM88,DT14:DT88")) Is Nothing Then
Call 　範囲内を選択された時に実行するマクロ
End If
End Sub

Sub 範囲内を選択された時に実行するマクロ
Range("A1").value="テスト"
End Sub

離れた複数範囲を設定していますが、連続したセルなら
１つのセル範囲の設定でＯＫです。

シートモジュールへの貼り付けは左下にあるシート名(Sheet1など)を右クリックし、
「コードの表示(V)」を選択すると白紙のモジュールが表示されるので、貼り付ける
だけです。