Is there a way to copy the selected text within a text box with VBA Excel? - excel

Question

I have replaced the ctrl+c shortcut with a macro that performs additional instructions when copying a range.
When the selection is not a range, the program should simply copy the current selection. It seemed to work perfecly fine until I tried to copy some text from within a TextBox (and basically any text that is within an object). When pasting, it just pastes the object and not the selected text within the object.
Here's my code :
Sub ShadowCopy()
Dim Rg As Range, Source As Range
Dim Ad As String, Nm As String, flag As Integer, i As Integer, obj As Integer
Dim Hs As Integer, Ls As Integer, y As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
obj = 0
If TypeName(Selection) <> "Range" Then
Selection.Copy
obj = 1
Else
If Application.CutCopyMode = False Then
Set Source = Application.Selection
Nm = Source.Worksheet.name
Hs = Application.Min(Source.Rows.Count, 1000)
Ls = Application.Min(Source.Columns.Count, 1000)
Ad = Source.Address
flag = 0
For i = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Worksheets(i).name = "ShadowCopy" Then
Sheets("ShadowCopy").Columns(1).Clear
Sheets("ShadowCopy").Columns(3).Clear
flag = 1
End If
Next i
If flag = 0 Then
Sheets.Add(After:=Sheets(Sheets.Count)).name = "ShadowCopy"
Source.Worksheet.Activate
End If
Worksheets("ShadowCopy").Visible = False
Sheets("ShadowCopy").Cells(1, 1) = Nm
Sheets("ShadowCopy").Cells(2, 1) = Ad
Sheets("ShadowCopy").Cells(3, 1) = Hs
Sheets("ShadowCopy").Cells(4, 1) = Ls
For y = 1 To Hs
Sheets("ShadowCopy").Cells(y, 3) = Source.Rows(y).RowHeight
Next y
End If
End If
Application.Calculation = xlCalculationSemiautomatic
Application.ScreenUpdating = True
If obj = 0 Then
Source.Copy
End If
End Sub
The part that does not work as intended is:
If TypeName(Selection) <> "Range" Then
Selection.Copy
obj = 1
It is as if the selection does not change when I select the text in the TextBox. However, when I recorded the text selection, the corresponding code implies that my selection should have changed when I selected the text in the TextBox:
ActiveSheet.Shapes.Range(Array("TextBox Source")).Select
Is there a way to copy the text highlighted by the cursor in a TextBox/Object ?
Thank you for your answers !