Moving Text Boxes
 

I received the following suggestion to move text boxes

Sub moveit()
With Workbooks("Book1.xls").Worksheets("Sheet1")
.TextBox1.Top=Sheet1.Range("B2").Top
.TextBox1.Left=Sheet1.Range("B2").Left
End With
End Sub

I get a message straight away highlighting the first
line (..With Workbooks etc) saying reference is out
of range.

Any suggestions?
Thanks

Moving Text Boxes
 

Do you have a workbook named "Book1.xls" (not named Book1 - a default
workbook does not have an extension). And that workbook has a worksheet
with a tab name of "Sheet1"


Not having one of those is usually the cause of this message.

Regards,
Tom Ogilvy


"phil perry" wrote in message
...
I received the following suggestion to move text boxes

Sub moveit()
With Workbooks("Book1.xls").Worksheets("Sheet1")
.TextBox1.Top=Sheet1.Range("B2").Top
.TextBox1.Left=Sheet1.Range("B2").Left
End With
End Sub

I get a message straight away highlighting the first
line (..With Workbooks etc) saying reference is out
of range.

Any suggestions?
Thanks