Error 1004 en tiempo de ejecución. Visual Basic Excel

Buenos días expertos,
Le comento mi problema. Tengo en una hoja excel, una macro, que al ejecutarla actualiza muchas tablas que son importadas desde la web. La cuestión, es que me funcionaba correctamente, y hoy al abrir la hoja excel, y darle al botón de la macro para ejecutarla, me sale el error 1004 de tiempo en ejecución. No se si podría ser problema, de que trabajo esta hoja excel con varios ordenadores, los cuales tienen diferentes versiones excel.
En visual basic, me marca en otro color lo que pongo en negrita.
Sub ACTUALCOTIZACCIONESHO()
'
' ACTUALCOTIZACCIONESHO Macro
' Macro grabada el 29/06/2013 por Jose
'
'
ActiveWindow.SmallScroll Down:=-3
Sheets("Cotizaciones Ticker").Select
ActiveWindow.ScrollRow = 5975
ActiveWindow.ScrollRow = 5883
ActiveWindow.ScrollRow = 5813
ActiveWindow.ScrollRow = 5721
ActiveWindow.ScrollRow = 5583
ActiveWindow.ScrollRow = 5467
ActiveWindow.ScrollRow = 5329
ActiveWindow.ScrollRow = 5168
ActiveWindow.ScrollRow = 4983
ActiveWindow.ScrollRow = 4822
ActiveWindow.ScrollRow = 4637
ActiveWindow.ScrollRow = 4453
ActiveWindow.ScrollRow = 4291
ActiveWindow.ScrollRow = 4107
ActiveWindow.ScrollRow = 3922
ActiveWindow.ScrollRow = 3784
ActiveWindow.ScrollRow = 3599
ActiveWindow.ScrollRow = 3461
ActiveWindow.ScrollRow = 3299
ActiveWindow.ScrollRow = 3138
ActiveWindow.ScrollRow = 3022
ActiveWindow.ScrollRow = 2884
ActiveWindow.ScrollRow = 2723
ActiveWindow.ScrollRow = 2607
ActiveWindow.ScrollRow = 2469
ActiveWindow.ScrollRow = 2354
ActiveWindow.ScrollRow = 2261
ActiveWindow.ScrollRow = 2146
ActiveWindow.ScrollRow = 2054
ActiveWindow.ScrollRow = 1962
ActiveWindow.ScrollRow = 1846
ActiveWindow.ScrollRow = 1754
ActiveWindow.ScrollRow = 1662
ActiveWindow.ScrollRow = 1546
ActiveWindow.ScrollRow = 1454
ActiveWindow.ScrollRow = 1362
ActiveWindow.ScrollRow = 1270
ActiveWindow.ScrollRow = 1200
ActiveWindow.ScrollRow = 1108
ActiveWindow.ScrollRow = 1039
ActiveWindow.ScrollRow = 970
ActiveWindow.ScrollRow = 877
ActiveWindow.ScrollRow = 808
ActiveWindow.ScrollRow = 739
ActiveWindow.ScrollRow = 670
ActiveWindow.ScrollRow = 601
ActiveWindow.ScrollRow = 531
ActiveWindow.ScrollRow = 462
ActiveWindow.ScrollRow = 416
ActiveWindow.ScrollRow = 324
ActiveWindow.ScrollRow = 278
ActiveWindow.ScrollRow = 209
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 1
Range("D6").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=36
Range("D54").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D109").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=45
Range("D155").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D208").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D258").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D310").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D361").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=48
Range("D410").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=57
Range("D466").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=27
Range("D494").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=33
Range("D527").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D579").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=54
Range("D631").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=48
Range("D679").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=54
Range("D733").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=48
Range("D781").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=27
Range("D808").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=45
Range("D853").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=54
Range("D907").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=48
Range("D955").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D1006").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D1057").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D1108").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=18
Range("D1125").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=12
Range("D1136").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=15
Range("D1152").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=39
Range("D1192").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=33
Range("D1225").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=33
Range("D1258").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=54
Range("D1311").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D1361").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=6
Range("D1367").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=27
Range("D1394").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=48
Range("D1442").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D1494").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=21
Range("D1515").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=42
Range("D1558").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=21
Range("D1579").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=51
Range("D1631").Select
Selection.QueryTable.Refresh...

Añade tu respuesta

Haz clic para o