no mostrar hojas al ejecutar macro

prueba con:
Application.ScreenUpdating = False ' al inicio de la macro
Application.ScreenUpdating =true ' al final de la macro

lo otro es modificar la macro para que haga referencia a la otra hoja  y no la seleccione ejemplo
en vez de seleccionar la hoja 1
Sheets("hoja1").select
range("a1").select
cambiar por
Sheets("hoja1").Range("A1")
de esta forma evitas el parpadeo al selecionar las hojas

hola !!  supongo que el error te lo da aca :
Sheets ("CASO4"). Range ("E10") que dato tienes en esta celda??

supongo que sería de esta forma
Sub Macro1
Sheets ("CASO4").Range("B10:F20").Sort Key1:=Sheets ("CASO4").Range("E10"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal