Error de automatización

Buenos dias grupo, estoy teniendo un problema con una aplicavción que estoy
haciendo.
El error surge de forma aleatoria, hay ocasiones que sucede, otras no, hay
ocasiones en que al abrir la aplicacion y presionar un boton surge el error
otras veces no. varia mucho el error es
-2147417848(80010108) en tiempo de ejecucion. Error de automatización
en otras ocasiones surge un error que dice Fallo en el metodo Select
y me marca la linea de codigo siguiente :

PRIMER BOTON

Application.ScreenUpdating = False
Sheets("CONTROL").Visible = True
Sheets("ACUMULADOS").Visible = True
Sheets("DIARIO").Visible = True
Sheets("CONTROL").Select
If Sheets("CONTROL").Cells(17, 2) = 0 Then
MsgBox Prompt:="No hay mesas ABIERTAS !", _
Buttons:=vbCritical, _
Title:="Sin Mesas"
Sheets("INICIO").Select
Sheets("CONTROL").Visible = xlSheetVeryHidden
Sheets("ACUMULADOS").Visible = xlSheetVeryHidden
Sheets("DIARIO").Visible = xlSheetVeryHidden
Else
Unload MenuInicial
Load CierraMesas ERROR AQUI
CierraMesas.Show


Y cuando no presenta el error sigue aqui

Private Sub UserForm_Initialize()

Sheets("CONTROL").Visible = True
Sheets("INICIO").Select
Application.ScreenUpdating = True
Dim celda As Range, Fila As Integer

With Worksheets("CONTROL")
' If .[A22].AutoFilter Then .[A22].AutoFilter
.Range(.[A22], .[a65536].End(xlUp)).AutoFilter Field:=3,
Criteria1:="Ocupada"

For Each celda In .Range(.[A22],
.[a65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
ListBox1.AddItem
ListBox1.List(Fila, 0) = celda.Offset(, 0)
ListBox1.List(Fila, 1) = celda.Offset(, 1)
ListBox1.List(Fila, 2) = celda.Offset(, 2)
ListBox1.List(Fila, 3) = celda.Offset(, 3)
ListBox1.List(Fila, 4) = Format(celda.Offset(, 4), "hh:mm")
Fila = Fila + 1
Next
' .[A22].AutoFilter
End With
End Sub

La parte de Autofilter ahora la tengo detenida pues aqui de repente me
enviava un error, deje puestos los filtros en la hoja "CONTROL".
Realmente ya busque por todos lados, pero no se que sucede.
Tambien desinstale excel y sus complementos, y lo volvi a instalar, cuando
sucede este error (El primero), y quiero salir de excel, detengo la
aplicacion pero excel no me cierra y se queda congelado. Esto no me pasa con
otros archivos que contienen tambien macros
Gracias por su ayuda