セルの値をテキストボックスへ記入及び名前変更

質問

範囲選択したセルに丸オートシェイプを挿入すると共に、それぞれのセルの値をテキストで追加及び、図形名を同じ値にしたいと思っています（下記の＊＊＊の部分）。この時セルは結合されている場合があります。
描写は下記のようにしたのですが、セルの読み込みで詰まってしまいました。セルの値を読み込むにはどの様なしたらいいのでしょうか？
宜しくお願い致します。

Sub 選択されたセルに丸テキスト挿入()
Dim X As Double
Dim Y As Double
Dim L As Double
Dim c As Range
If Not TypeName(Selection) = "Range" Then Exit Sub
For Each c In Selection
With c.MergeArea
If c.Address = .Item(1).Address Then
L = IIf(.Width > .Height, .Height, .Width)
X = .Left + (.Width - L) / 2
Y = .Top + (.Height - L) / 2
ActiveSheet.Shapes.AddShape(msoShapeOval, X, Y, L, L).Select
Selection.Name = ＊＊＊

Selection.Characters.Text = "＊＊＊"
Selection.ShapeRange.Fill.Visible = msoFalse 　　
　　Selection.HorizontalAlignment = xlCenter
With Selection.Characters(Start:=1, Length:=3).Font
.Size = 8
End With
End If
End With
Next
End Sub

回答No.1

merlionXX · ベストアンサー

= "＊＊＊"
を、
= c.Value
にするだけでは？

お礼

できました！
これは便利ですね！
ありがとうございました。