Új hozzászólás Aktív témák

• #9826 Delila_1 veterán radam #9824

  Új Válasz 2011-03-29 13:27:29 #9826

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz radam #9824 üzenetére

  Sub SortWorksheets()
  Dim sCount As Integer, i As Integer, j As Integer
  Application.ScreenUpdating = False
  sCount = Worksheets.Count
  If sCount = 1 Then Exit Sub
  For i = 1 To sCount - 1
  For j = i To sCount
  If Worksheets(j).Name < Worksheets(i).Name Then
  Worksheets(j).Move Before:=Worksheets(i)
  End If
  Next j
  Next i
  Application.ScreenUpdating = True
  End Sub

Új hozzászólás Aktív témák