This code should find an ordinary/basic text box on a worksheet and then move it left. Then go to the next sheet and do the same thing. Do until the last sheet.
It works (as I cycle through it using F8), but then the next sheet it says the object doesn't support this property of method.
I've no idea why this is happening.
Dim I As Integer Dim txBox As Shape Set txBox = ActiveSheet.Shapes("Text Box 1") For I = 1 To Worksheets().Count Worksheets(I).Activate txBox.Select **Selection.ShapeRange.IncrementLeft 586.5** Next I End Sub