Yaron Yehezkel
New Member
- Joined
- Jul 11, 2020
- Messages
- 13
- Office Version
- 365
- Platform
- Windows
Hey guys!
what does this code means? I'm trying to figure out but bit confused.
Sub ExcelSolution()
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Integer
var1 = Sheets.Count
For var2 = 1 To var1 - 1
For var3 = var2 + 1 To var1
If Sheets(var3).Name < Sheets(var2).Name Then
Sheets(var3).Move before:=Sheets(var2)
End If
Next var3
Next var2
End Sub
Thanks for the help!
what does this code means? I'm trying to figure out but bit confused.
Sub ExcelSolution()
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Integer
var1 = Sheets.Count
For var2 = 1 To var1 - 1
For var3 = var2 + 1 To var1
If Sheets(var3).Name < Sheets(var2).Name Then
Sheets(var3).Move before:=Sheets(var2)
End If
Next var3
Next var2
End Sub
Thanks for the help!