Dim wsFrom as Worksheet, wb as Workbook

Set wsFrom = ThisWorkbook.Workshhets( 1 ) ' лист который размножаем
For i =  2  to  100 
  set wb = Workbooks.add(xlWBATWorksheet) ' добавить новую книгу с одним листом
' да здравствует копипаст!
  wsFrom.Columns( 1 ).Copy wb.Worksheets( 1 ).Range("A1")
  wsFrom.Columns(i).Copy wb.Worksheets( 1 ).Range("B1")

  wb.SaveAs ThisWorkbook.Path & "\workbook_" & i ' сохраняем в папке с этой книгой
  wb.Close                                       ' закрывем
  Set wb = Nothing                               ' освобождаем память

Next i
Set wsFrom = Nothing