Очистка содержимого скрытой ячейки.

Worksheets("Z").Range("A6:X11").Clear

Worksheets("Z").Range("A6:X11").Clear

Worksheets("Z").Range("A6:X11").ClearContents

Sub Sort(astrNames() As String)  
   Dim i As Integer, j As Integer
    Dim strBuffer As String, fBuffer As Boolean
    For i = LBound(astrNames) To UBound(astrNames) - 1
        For j = i + 1 To UBound(astrNames)
            If astrNames(i) > astrNames(j) Then   
               strBuffer = astrNames(i): astrNames(i) = astrNames(j): astrNames(j) = strBuffer
            End If
        Next j
    Next i
End Sub
 
Sub SortSheets()
  
   Dim astrSheetNames() As String 
   Dim intSheetCount As Integer, i As Integer, objActiveSheet As Object
    If ActiveWorkbook Is Nothing Then Exit Sub
   
   If ActiveWorkbook.ProtectStructure Then MsgBox "Структура книги" & ActiveWorkbook.name _
     & " защищена. Сортировка невозможна", vbCritical: Exit Sub
    Set objActiveSheet = ActiveSheet   
 
   Application.ScreenUpdating = False
    intSheetCount = ActiveWorkbook.Sheets.Count
 
    ReDim astrSheetNames(1 To intSheetCount)   
   For i = 1 To intSheetCount
        astrSheetNames(i) = ActiveWorkbook.Sheets(i).name
    Next i
 
    Call Sort(astrSheetNames)  
 
    For i = 1 To intSheetCount   
       ActiveWorkbook.Sheets(astrSheetNames(i)).Move ActiveWorkbook.Sheets(i)
    Next i
 
    objActiveSheet.Activate    
   Application.ScreenUpdating = True
End Sub