ＶＢＡでIF関数の中の andの使用法について

質問

Excel2000でWindowsXP を使用している超初心者です。あるサイトに
シートのＡ列のセルをクリックするとカレンダーが表示され、その日付をクリックすると、日付がそのＡ列のセルに挿入できるというものです。やっとの思いで完成しました。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' 複数セル選択時は無視
If Target.Count <> 1 Then Exit Sub
' A列以外は無視(今回サンプルの例)
If Target.Column <> 2 Then Exit Sub
' カレンダーフォームを起動する
Call ShowCalendarFromRange2(Target)
End Sub
しかし、自分のシートはＡ列だけでなく、１３列目についても同様の動作が出来るようにしたいのです。
and を使ってもうまく１３列目にカレンダーが現れてくれません。
一番上に　「複数セル選択時は無視」というスクリプトがあるから出来ないのでしょうか？もちろんこの条件は必須で除外したくないですが・・・。どなたか教えていただけませんか？
なお、このマクロを導入したらＲ1Ｃ1表示に変わってしまいました。

回答No.2

n-jun · ベストアンサー

ANo.1 訂正です。

If Target.Column <> 2 And Target.Column <> 13 Then Exit Sub
２はＢ列だけど・・・？　（Ａ列は１）

お礼

すばやいご指導ありがとうございました。いま実験しましたら正常にできました。こんな質問にご丁寧にありがとうございました。

回答No.1

n-jun

>Ｒ1Ｃ1表示に変わってしまいました。
「ツール」－「オプション」－「全般」の
Ｒ１Ｃ１参照形式を使用する
にチェックが入っていたら外す。

If Target.Column <> 2 And Target.Column <> 13 Then Exit Sub
~~~
Ｂ列だけど・・・？