Option Explicit
Public Sub test()
Const BOX_NAME As String = "TextBox 1"
Dim objTextBox As Excel.TextBox
Dim dblLeft As Double, dblTop As Double
For Each objTextBox In Sheet2.TextBoxes
With objTextBox
If .Name = BOX_NAME Then
dblLeft = .Left
dblTop = .Top
Call .Delete
Exit For
End If
End With
Next
If objTextBox Is Nothing Then
Call MsgBox("TextBox mit diesem Namen wurde " & _
"nicht gefunden...", vbExclamation)
Else
Application.ScreenUpdating = False
Call Sheet1.TextBoxes(BOX_NAME).Copy
Call Sheet2.Paste
If TypeName(Selection) = "TextBox" Then
With Selection
.Left = dblLeft
.Top = dblTop
End With
End If
Set objTextBox = Nothing
Application.ScreenUpdating = True
End If
End Sub