[Phil Perry]

Thanks to everyone helping with moving the text box. The
code is
Sub moveit()
MsgBox "Clear Data?", vbQuestion + vbYesNo
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = " object to move"
Selection.Top = Sheet1.Range("B2").Top
Selection.Left = Sheet1.Range("B2").Left
Range("A1").Select
End Sub

With regard to the message box, if someone clicks on NO
to clear data, how do I get them to return to Sheet 1
without activating the next lot of code?
Thanks in anticipation.

[Dan E[_2_]]

Sub moveit()
MsgAns = MsgBox("Clear Data?", vbQuestion + vbYesNo)
If MsgAns = vbYes Then
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = " object to move"
Selection.Top = Sheet1.Range("B2").Top
Selection.Left = Sheet1.Range("B2").Left
Range("A1").Select
End If
End Sub

Dan E

"Phil Perry" wrote in message
...
Thanks to everyone helping with moving the text box. The
code is
Sub moveit()
MsgBox "Clear Data?", vbQuestion + vbYesNo
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = " object to move"
Selection.Top = Sheet1.Range("B2").Top
Selection.Left = Sheet1.Range("B2").Left
Range("A1").Select
End Sub

With regard to the message box, if someone clicks on NO
to clear data, how do I get them to return to Sheet 1
without activating the next lot of code?
Thanks in anticipation.