ho due errori che non riesco a capire su due macro diverse ma nello stesso foglio
Primo errore:
questa macro funziona regolarmente ma quando salvo il file con un nome diverso non si aggiorna in automatico l'istruzione "Windows("2 TURNO.xls").Activate" restando il nome del file originario e non aggiornandosi al nuovo nome del file ad esempio non diventa 3 TURNO.xls per permettere alla macro di funzionare

Sub importa()
'
' importa Macro
' Macro registrata il 10/09/2008 da administrator
'

'
Range("A1").Select
Sheets("ele").Select
Workbooks.OpenText Filename:="http://accio.altervista.org/upload/mcc00.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
Array(27, 1), Array(28, 1)), TrailingMinusNumbers:=True
Range("A1:AB610").Select
Selection.Copy
Windows("2 TURNO.xls").Activate
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("mcc00.txt").Activate
ActiveWorkbook.Close
Sheets("risultati").Select
End Sub

Questa seconda macro invece funziona perfettamente su Office 2007 con cui l'ho creata mentre se la faccio eseguire con Excel 2003 mi da il seguente errore: "err. runtime 438 Proprietà o metodo non supportati dall'oggetto"
il blocco avviene subito alla seconda istruzione

Sub orda_punti()
'
' orda_punti Macro
'

'
Range("A20:S31").Select
ActiveWorkbook.Worksheets("class.aut.").Sort.SortF ields.Clear
ActiveWorkbook.Worksheets("class.aut.").Sort.SortF ields.Add Key:=Range( _
"S20:S31"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("class.aut.").Sort
.SetRange Range("A20:S31")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
Range("A35:S46").Select
ActiveWorkbook.Worksheets("class.aut.").Sort.SortF ields.Clear
ActiveWorkbook.Worksheets("class.aut.").Sort.SortF ields.Add Key:=Range( _
"S35:S46"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("class.aut.").Sort
.SetRange Range("A35:S46")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range("A17").Select
End Sub
boh! help!