『VBAフォームをセルでクリックでだしたい』（かじや）

カレンダーをセルクリックで表示させたいのですが.....
サイトで見つけたのですが、セルをクリックしたときに表示させたいのです。
例えば、A1のセルをクリックしたときに、カレンダーが表示して日付を選択したときにA1に選択した日付を表示させたいのです。

表示の仕方はわかりましたが、A1とC1のみクリック時フォームが開くようにしたいのです。
どのように直したら宜しいですか？
教えて頂きたく思います。
これはA列のみ表示させるVBAですがどうすればよろしいでしょうか？

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 複数セル選択時は無視
    If Target.Count <> 2 Then Exit Sub
    ' A列以外は無視(今回サンプルの例)
    If Target.Column <> 2 Then Exit Sub
    ' カレンダーフォームを起動する
    Call ShowCalendarFromRange(Target)
End Sub


----
 
 Private Sub Worksheet_SelectionChange(ByVal target As Range)
    ' 複数セル選択時は無視
    If target.Count <> 1 Then Exit Sub   '★　　2じゃなく1でしょ？
    'A1,C1クリック時のみ
    If Not Intersect(target, Range("A1, C1")) Is Nothing Then
    ' カレンダーフォームを起動する
        Call ShowCalendarFromRange(target)
     End If
 End Sub
 
 (ぶらっと)
----
 結合セルがあるのかと思いましたが？
＞If Target.Column <> 2 Then Exit Sub
Column を調べてみてくださいね　
----
有り難うございます。
BCを結合した場合はどのようにすれば宜しいですか？？
宜しくお願いします。
（かじや）

----
 >BCを結合

 B1とC1が結合されている？　そうすると、C1を選択という表現よりB1を選択という表現の方が「シート上の見た目」としては適切だけど。
A1は単独セル？ともあれ、

 Private Sub Worksheet_SelectionChange(ByVal target As Range)
    Select Case target.Address(False, False)
        Case "A1", "B1:C1"
            Call ShowCalendarFromRange(target)
    End Select
 End Sub

 (ぶらっと)