Copying text from a shape

Hi rj,
So that you don't have any problems caused by the break in the 6th
line, copy and paste this version...

Public Sub ShapeCaptionToCell()
Dim strShpText As String
Dim rngDestination As Range
On Error GoTo NOTSHAPE
strShpText = Application.selection.Caption
Set rngDestination = Application.InputBox _
(prompt:="Select the destination cell", _
Type:=8)
rngDestination.Value = strShpText
NOTSHAPE:
End Sub

Also, when you select the destination range it can be bigger than one
cell and can even be a non-contiguous range (selected while holding
down Ctrl).

Ken Johnson

Thanx Ken

You're welcome rj.
Thanks for the feedback.
Ken Johnson