Problemas con macros

Con respecto a la primera parte, ¿sabes por qué tiene ese tamaño, es decir, la cantidad de información justifica el tamaño? Porque a veces copiamos botones o celdas con formatos especiales (color, tramas, etc) y eso nos dispara el tamaño. Lo que debes hacer en ese caso es crear un nuevo libro donde copies los datos y formatees cada hoja por separado.
En la segunda consulta, si hablamos de una lista validada, en la celda, debes utilizar el evento Change no Selection_Change. (Este tema encontrarás bien explicado en mi nuevo Manual ). El resto de las instrucciones están correctas.

Es que con la instrucción:
Application.EnableEvents = False
Estás inhabilitando el evento siguiente, que es justamente la macro que querés ejecutar.
Quitándola se solucionará el problema.

Hola Elsa, el archivo tiene 24 hojas y 20 módulos con algunas macros realmente extensas, pero hay otros archivos con cantidad similar de información que no pesan tanto, y si tengo la manía de copiar muchos formatos y botones, así que puede esa ser la causa, con respecto al segundo punto, no me funcionó, no se porque, he aquí la instrucción completa:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$c$5" Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Call MoverEmpresas
End If
Application.EnableEvents = True
End Sub
De verdad te agradezco cualquier ayuda, un millón de gracias
Beohrtnoth

Hola Elsa, de verdad que pena molestarte tanto, hice lo que me dijiste y no funciona, lo peor es que tengo un botón al lado con la macro "MoverEmpresas" y cada vez que cambio el valor de la lista desplegable y le doy click al botón la macro funciona perfectamente; pero cuando cambio el valor de la celda con la lista desplegable, no ejecuta la macro! Me va a sacar de quicio este Visual, porque precisamente lo que busco es evitar que el usuario tenga que pulsar un botón; nuevamente disculpa los inconvenientes y espero puedas colaborarme
Mil gracias

Enviame el archivo siempre y cuando no sea el de 30Mb !
O si preferís tengo el de muestra con tu ejemplo.
Mi dirección en la página al pie.

El archivo mide 19 MB, je je, mira, lo peor es que tengo en el mismo archivo otra macro que si sirve, y es así:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then
Application.ScreenUpdating = True
Application.EnableEvents = False
Dim Ranges As Range
Call Filtrar_SubSector_Y_Año
Sheets("Filtro").Select
la macro que no sirve (ubicada en una hoja diferente) es :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$c$5" Then
Application.ScreenUpdating = False
Call MoverEmpresas
End If
End Sub
La macro "MoverEmpresas" que funciona con un botón pero no cuando se le llama con la instrucción anterior, es la que sigue:
Sub MoverEmpresas()
I = Range("c5").Value
Application.ScreenUpdating = False
Range("a6").Select
Application.ScreenUpdating = True
While ActiveCell.Row <> 499 And ActiveCell.Value <> I
If ActiveCell.Value = Range("c5").Value Then
ActiveCell.Select
Else: End If
ActiveCell. Offset(1, 0).Activate
Wend
End Sub
No se si te sea de utilidad, mil gracias

No lo puedo creer, muchísimas gracias por tu ayuda, ahora si funciona, eres muy muy amable
Un saludo