Option Explicit

Sub ClearPrint(WorksheetName)
    Application.DisplayAlerts = False
    Sheets("Sheet1").Copy After:=Sheets(3)
    With Sheets(1).Cells.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets(1).PrintOut
      
    Sheets("Sheet1").Delete
    ActiveSheet.Name = "Sheet1"
   
Dim i As Integer
Dim j As Integer

    For i = 1 To Sheets.Count
          For j = 1 To Sheets.Count - 1
                If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
                   Sheets(j).Move After:=Sheets(j + 1)
                End If
          Next j
    Next i
    Sheets("Sheet1").Select
    Range("A1").Select
   Application.DisplayAlerts = True
End Sub

Sub prnt()
    ClearPrint "Sheet 1"
End Sub