[[20140926095318]]　『クリックしてからの文字非表示』（TOM）　ページの最後に飛ぶ

『クリックしてからの文字非表示』（TOM）

いつもお世話になっています。
質問させてください。
excelでコメント記入欄を作成しまして、そこに薄い字で。「ここにコメントを入力してください」と記入してあります。そこをクリックすると薄い字のコメントが消え、他の部分をクリックするとコメント欄未記入の場合のみ、また薄い字のコメントが現れる、といったような仕様にしたいと思っております。
ＶＢＡで実行しようと思い、組んでいたのですが、うまくいきません。以下組んだＶＢＡになります。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 Const myWd As String = "ここにコメントを入力してください"
With Range("A9")
 If Not Intersect(Target, Range("A9")) Is Nothing Then
 If Target = myWd Then
 Target = ""
 .Font.ColorIndex = 0
 End If
 Else
 If .Value = "" Then
 .Value = myWd
 .Font.ColorIndex = 16
 End If
 End If
 End With
 End Sub

実行すると、「実行エラー13型が一致しません」とエラーが表示されます。
ちなみにA9のセルはP10までセルを結合してあります。
上記のＶＢＡを結合していないセルで実行したところうまく動きました。
セルを結合していることが原因でしょうか？
回避策はないでしょうか？
よろしくお願い致します。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 せっかくWith使っているなら、これでいいんじゃない？
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Const myWd As String = "ここにコメントを入力してください"
        With Range("A9")
            If Not Intersect(Target, Range("A9")) Is Nothing Then
                If .Value = myWd Then
                    .Value = ""
                    .Font.ColorIndex = 0
                End If
            Else
                If .Value = "" Then
                    .Value = myWd
                    .Font.ColorIndex = 16
                End If
            End If
        End With
    End Sub

（稲葉） 2014/09/26(金) 11:28

稲葉さん

できました！
ありがとうございました。
勉強になりましたm(__)m
（TOM） 2014/09/26(金) 11:31

コメント返信：

[ 一覧(最新更新順) ]

[[20140926095318]] 『クリックしてからの文字非表示』（TOM） ページの最後に飛ぶ

[[20140926095318]]　『クリックしてからの文字非表示』（TOM）　ページの最後に飛ぶ