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).

 

[kweaver]

What is the exact error message & number?

 

[Fluff]

The sheet isn't hidden is it?

 

[kweaver]

The sheet isn't hidden is it?

Nope.

Worksheets("TextFile").Visible = True

Isn't this just crazy?

 

[steve the fish]

Readonly?

 

[kweaver]

Readonly?

Nope.

 

[steve the fish]

If you tried to do it manually it would give a better idea. Right click sheet tab. Is anything greyed out?

 

[kweaver]

If you tried to do it manually it would give a better idea. Right click sheet tab. Is anything greyed out?

 

[steve the fish]

Ok move it to a new workbook as that what you are attempting. If it lets you i give up

 

[kweaver]

Ok move it to a new workbook as that what you are attempting. If it lets you i give up

HOLD ON! I'm really an idiot. The sheet tab that I'm trying to move is hidden.
In the original application, it wasn't.

I'm so sorry to be such a pain on this...but, it now works as designed by Fluff. UGH!

 

[Fluff]

Worksheets("TextFile").Visible = True

I was talking about the sheet you are trying to move.