図形消去後に文字入力(エクセル）

Sub test()
　Dim c As Range
　If Not TypeName(Selection) = "Range" Then Exit Sub
　　
　　For Each c In Selection
　　　With c.MergeArea
　　　　wTop = .Top
　　　　wLeft = .Left
　　　　wBottom = .Top + .Height
　　　　wRight = .Left + .Width
　　　End With

　　For Each s In ActiveSheet.DrawingObjects
　　With s
　　　If wTop <= .Top And _
　　　　　wLeft <= .Left And _
　　　　　wBottom >= .Top + .Height And _
　　　　　wRight >= .Left + .Width Then
　　　　　.Delete
　　　End If
　　End With
　　Next
　　Next
End Sub

上記マクロは、選択状態になっている個々のセルの中に、すっぽり収まる状態で存在しているオブジェクトを消去します。
オブジェクトが消去されたセルに、"○"が入力されるようにしたいのですが。
どういった記述が必要になるでしょうか？

No.2 ベストアンサー 回答者： takibo 回答日時： 2006/07/26 17:02

コードの下から６行目の

　　.Delete
の次の行に
　　c.Value="○"
と追加してください。

趣旨と違っていたらごめんなさい。

この回答へのお礼

ご指摘の方法で解決しました。
有難うございます。

お礼日時：2006/07/26 19:46

No.1 回答者： marbin 回答日時： 2006/07/26 16:49

コードをよく見てませんが、

TopLeftCellを使えばいいような気がします。

この回答へのお礼

有難うございます。

お礼日時：2006/07/26 19:45