Snasui Excel Forum

Code: Select all

Sub kornake()
Dim i, ii As Integer

Application.ScreenUpdating = False
  Sheets("GROUPDATA").Select
    Sheets("GROUPDATA").Move Before:=Sheets(1)
    ii = Sheets.Count
    i = 2
   
    Do Until Sheets.Count = 1
    a = Sheets(i).Name
    Sheets(a).Select
    ActiveWindow.SelectedSheets.Delete
    Loop
    Call akekorn

End Sub

Code: Select all

Sub kornake()
Dim i, ii As Integer
Application.DisplayAlerts = False
Application.ScreenUpdating = False
  Sheets("GROUPDATA").Select
    Sheets("GROUPDATA").Move Before:=Sheets(1)
    ii = Sheets.Count
    i = 2
   
    Do Until Sheets.Count = 1
    a = Sheets(i).Name
    Sheets(a).Select
    ActiveWindow.SelectedSheets.Delete
    Loop
    Call akekorn
Application.DisplayAlerts = True

End Sub

Code: Select all

Sub Test()
    Dim sh As Worksheet
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        If sh.Name <> "GROUPDATA" Then
            sh.Delete
        End If
    Next sh
    Application.DisplayAlerts = True
End Sub

Code: Select all

Sub AUTO_OPEN()
    Dim i, ii As Integer
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Sheets("GROUPDATA").Select
    Sheets("GROUPDATA").Move Before:=Sheets(1)
    ii = Sheets.Count
    i = 2
    Do Until Sheets.Count = 1
        a = Sheets(i).Name
        Sheets(a).Select
        ActiveWindow.SelectedSheets.Delete
    Loop
    Call akekorn
    Application.DisplayAlerts = True
End Sub