zoradenie_harkov_podla_abecedy.vb

```
' Zoradiť pracovné listy podľa abecedy pomocou VBA
' Sort Worksheets Alphabetically Using VBA

Sub SortSheetsTabName()
	Application.ScreenUpdating = False
	Dim ShCount As Integer, i As Integer, j As Integer
	ShCount = Sheets.Count
	For i = 1 To ShCount - 1
		For j = i + 1 To ShCount
			If Sheets(j).Name < Sheets(i).Name Then
				Sheets(j).Move before:=Sheets(i)
			End If
		Next j
	Next i
	Application.ScreenUpdating = True
End Sub
```