[hasherfrog]

Привет, Bob7
Макрос для твоей задачи такой:

Код:

Sub Macro1() 
 i = 1 
While ThisWorkbook.Sheets(1).Cells(i, 1) <> "" 
 
  Workbooks.Add 
  j = 2 
  While ThisWorkbook.Sheets(1).Cells(i, j) <> "" 
    Sheets.Add 
    Sheets("Sheet" + Format(j + 2)).Name = ThisWorkbook.Sheets(1).Cells(i, j) 
    j = j + 1 
  Wend 
 
  Sheets("Sheet1").Select 
  ActiveWindow.SelectedSheets.Delete 
  Sheets("Sheet2").Select 
  ActiveWindow.SelectedSheets.Delete 
  Sheets("Sheet3").Select 
  ActiveWindow.SelectedSheets.Delete 
 
  ActiveWorkbook.SaveAs Filename:= _ 
      "C:\Documents and Settings\TEMP\Мои документы\" + ThisWorkbook.Sheets(1).Cells(i, 1) + ".xls", FileFormat:= _ 
      xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ 
      , CreateBackup:=False 
 
  ActiveWindow.Close 
  i = i + 1 
 
Wend 
End Sub

Макрос надо запускать из файла типа

Код:

Имя_файла_1 Имя_страницы_1 Имя_страницы_2 ... 
Имя_файла_2 Имя_страницы_1 Имя_страницы_2 Имя_страницы_3 ... 
Имя_файла_3 Имя_страницы_1 ... 
Имя_файла_4 Имя_страницы_1 Имя_страницы_2 ...