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