Basic Loop Trouble - need to convert active sheet to integer

I'm new to usign loops and I've run into a bit of trouble, I need to use a loop to add a value of 1 to the workseets name on each repetition. The worksheets are all named with single numbers but I'm not sure how to convet the active sheet reference into an integer t hat I can use to add a value to. I also tried

Dim Order As String, i As Integer
Order = ActiveSheet.Name

Dim OrderNum As Integer
OrderNum = Order


For i = 1 To 21


Code Goes here

    
Sheets(OrderNum + 1).Activate

Next i

I also tried

Dim Order A, i As Integer
Order = ActiveSheet.Name


For i = 1 To 21


Code Goes here

    
Sheets(Order + 1).Activate

Next i

I also tried

Dim Order as String = ActiveSheet.Name

Dim OrderNumber As Integer = Convert.ToInt32(Order)

Any assistance greatly appreciated

Thanks

Hi Mick,

If it's the name - you've got to use quote marks, because the name is a string - when you just use a number, that's the sheet index.

Dim S As String:S=Order + 1
Sheets(S).Activate

or something similar!

I tried like this but it gets stuck on Sheet "2"

Sub Reset_All_Orders()
'
' Reset_All_Orders Macro
' Reset all orders to default layout
'

'
Dim Response As Integer
   
      Response = MsgBox("Do you want to reset all orders?", _
vbYesNo + vbQuestion + vbDefaultButton2, _
"Reset Sheets")

      If Response = vbYes Then
      
      Sheets("1").Activate         ' As Macro Initiated From A Sheet Outside Of The 1-21 Range
      
    
Dim Order As String, OrderNum As String, i As Integer
Order = ActiveSheet.Name
OrderNum = Order + 1           ' Increase The Active Sheet Number By 1

For i = 1 To 21                     ' Set Loop To Run 21 Times

 ' Makes Various Changes To Sheet Here
    
Sheets(OrderNum).Activate     ' Activate The Next Sheet

Next i                                 ' Repeat Loop

Exit Sub


    Else
         
         Range("$A1").Select
         
         Exit Sub
      End If
End Sub

For i = 2 To 21                     ' Set Loop To Run 21 Times

 ' Makes Various Changes To Sheet Here
    
Sheets(i).Activate     ' Activate The Next Sheet

Next i                                 ' Repeat Loop

It all depends on how your sheets are named - this will give you Sheets(2) to Sheets(21)

If you want "Sheet2" to "Sheet21" then you could use:

Worksheets("Sheet" & i)

So much simpler, I was perhaps coming at things from the wrong direction.

My sheet names do not contain the word "sheet', they just have numbers.

Your code almost works, though the fact that the 1st sheet i created is called "index" seems to be a problem. The reference style you suggested seems to refer to the sheets number derived from its creation time rather than the sheets name.

As you write it it starts on the sheet named "1" which is (sheet 2) according to the visual basic menu and it runs up until sheet "20" (which is technically sheet 19).

If I change the code to:

Dim i As Integer

For i = 2 To 22

Sheets(i).Activate

' Do Stuff

Next i

This is a work around for the problem. Perhaps if quotation marks were included with in the brackets I'd be able to refer to the exact sheet name

Sheets("i").Activate

or

Sheets("""&i&""").Activate

I'll be able to use that in multiple locations where I had previously been doing things manually.

The "i" wont work.

How about a mockup? OR:

Dim ws As Worksheet
For each ws in ThisWorkbook.Worksheets
ws.Activate



Next