Расположить листы в определенном порядке при открытии книги

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста как исправить код ниже (vba excel 2007), который при открытии книги располагает листы с определенными именами в заданном порядке? Листа с каким-то из имен может не быть, тогда пропустить и располагать оставшиеся листы. Но данный код (ниже) выдает ошибку. Помогите исправить.
Заранее спасибо!

Dim x, il&
On Error Resume Next
For Each x In Array("Группы", "данные", "итог")
il = il + 1
Sheets(x).Move before:=Sheets(il)
Next

[IgorGO]

Dim x, il&
On Error Resume Next
il = 1
For Each x In Array("Группы", "данные", "итог")
  if worksheet(x).index = il then
    il = il+1
  else
    WorkSheets(x).Move before:=WorkSheets(il)
    if err then err.clear else il = il+1
  end if
Next
on error goto 0