jwindholz2725
Board Regular
- Joined
- Sep 20, 2011
- Messages
- 94
1.) I have a code below that will take the information from the current sheet and create tabs based on the names of the information in cells A2:A20. This works great but it creates a new sheet. Is there a way to copy the sheet based of the info in cells A2:A20 rather than create a new sheet based of those names.
2.) Can this be made to read off of a specific tab? (In my case one named WBS) Currently it works off the current sheet you are on.
Sub AddSheets()
'Create new sheets based on range
'name each sheet from that range
Dim c As Range
For Each c In Range("a2:a20")
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = c
Next c
End Sub
2.) Can this be made to read off of a specific tab? (In my case one named WBS) Currently it works off the current sheet you are on.
Sub AddSheets()
'Create new sheets based on range
'name each sheet from that range
Dim c As Range
For Each c In Range("a2:a20")
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = c
Next c
End Sub
