Logo 
Search:

MS Office Answers

 Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds
  Question Asked By: Geeske Bakker   on Jan 19 In MS Office Category.

Create Worksheets from List


  
Question Answered By: Jeanne Lawson   on Jan 19

Here's a short version:

Sub AddSheets()
Dim X, FirstSheet, CurSheet, newSheetName
FirstSheet = ActiveSheet.Name
For X = 1 To 30
If (Sheets(FirstSheet).Cells(X, 1) <> "") Then
Sheets.Add
Sheets(ActiveSheet.Name).Name = Sheets(FirstSheet).Cells(X, 1)
Sheets(Sheets(FirstSheet).Cells(X, 1).Value).Move
after:=Sheets(Sheets.Count)
End If
Next X
End Sub

Share: 

 

This Question has 4 more answer(s). View Complete Question Thread

 
Didn't find what you were looking for? Find more on Create Worksheets from List Or get search suggestion and latest updates.


Tagged: