Порядок листов при открытии книги

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как прописать в макросе excel 2003, чтобы при открытии книги листы в ней выстраивались в заданном порядке (не по алфавиту, а по заданным именам), например, 1-м был лист с именем "Справка", 2-м "Данные", 3-м "Результат"?
Спасибо.

[Казанский]

В модуль книги

Private Sub Workbook_Open()
Dim x, i&
On Error Resume Next
For Each x In Array("Справка", "Данные", "Результат")
    i = i + 1
    Sheets(x).Move before:=Sheets(i)
Next
End Sub

[ольгаг]

Спасибо большое. Все работает!

[slan]

Private Sub Workbook_Open()
Dim x
On Error Resume Next
For Each x In Array("Результат", "Данные", "Справка")
    Sheets(x).Move before:=Sheets(1)
Next
End Sub