Macros en wndows 10

[Lince1950]

Hola buenas tardes, hace un tiempo me echasteis una mano por aqui y hasta ahora todo ha ido bien, pero e aqui que he actualizado mi Windows 7 al Windows 10 y lo primero que he echo ha sido probar mi programa que hice de la comunidad y cual es mi sorpresa que me da error en las macros justo de momento en esta linea

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

La macro entera es asi.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B30:B45,B49:B56,B58")) Is Nothing Then

UserForm1.Show

End If

End Sub

Podeis ayudarme donde esta el fallo o es que Windows 10 NO admite el vb

Repito que en Windows 7 si funciona correctamente todo el programa