Fluff routine not working

[kweaver]

Fluff, in addition to the comma mess I'm having (another post), I'm having a problem with your MOVE function.

Sub MoveSheets()
   Dim UsdRws As Long, i As Long
   Dim Cl As Range
   Dim Ary As Variant
   
   With Sheets("TextFile")
      UsdRws = .Range("U" & Rows.Count).End(xlUp).Row
      ReDim Ary(UsdRws - 5)
      For Each Cl In .Range("U5:U" & UsdRws)
         Ary(i) = Cl.Value
         i = i + 1
      Next Cl
   End With
   Sheets(Ary).Move
End Sub

This worked perfectly fine in my previous situation where the names were in the S column. In a new file, the names are now in the U column.
In my test case, there's only 1 name in U5, but I get an error on Sheets(Ary).Move that the move method of sheet class failed.
Nothing has changed from your original (below) other than S is now U in the new application.

Sub MoveSheets()
   Dim UsdRws As Long, i As Long
   Dim Cl As Range
   Dim Ary As Variant
   
   With Sheets("TextFile")
      UsdRws = .Range("S" & Rows.Count).End(xlUp).Row
      ReDim Ary(UsdRws - 5)
      For Each Cl In .Range("S5:S" & UsdRws)
         Ary(i) = Cl.Value
         i = i + 1
      Next Cl
   End With
   Sheets(Ary).Move
End Sub

Am I just going crazy? (well, don't answer that).

 

[Fluff]

What does UsdRws return when you get the error?

 

[kweaver]

?UsdRws
5

 

[JLGWhiz]

You need to tell it where to move to. Before:=, After:=

 

[kweaver]

You need to tell it where to move to. Before:=, After:=

The original code worked without that specification. The only change, as I mentioned, was column S to column U.

 

[steve the fish]

You need to tell it where to move to. Before:=, After:=

That will just move them to a newly created workbook

 

[steve the fish]

Just check workbook isnt protected. Review-Protect Workbook.

 

[kweaver]

The workbook in which the routine exists is not protected. The added workbook isn't protected either.
As I said, it worked just find, unchanged except for the S column reference to the U column reference, in another application.

 

[Fluff]

What is the exact error message & number?

 

[steve the fish]

Ok well try and move said sheet manually. Get an error??