選択セル値をダブルクリックでテキストに置き換え

※ニッチな作業用（自分だけかな。。。）

---------------------------------------------------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Tage As Range, Cancel As Boolean)
ActiveSheet.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=Tage.Offset(, 1).Left, Top:=Tage.Offset(, 1).Top, _
Width:=Tage.Offset(, 1).Width, Height:=Tage.Offset(, 1).Height).Select

With Selection
.Characters.Text = Tage
.AutoSize = True
End With
Tage.ClearContents
End Sub