How to add a worksheet automatically using macro in xls?

  • Thread starter Thread starter eva
  • Start date Start date
E

eva

How can I create a macro wherein the actions include adding a new worksheet
and naming the worksheet based on a field in the worksheet?

Ex: 1. Add a worksheet
2. Name the worksheet referencing a field already defined.
3. #1 and #2 is automatic ( ran thru macro)

Please help.
 
Perhaps

Sub addasheet()
Worksheets.Add
ActiveSheet.Name = Worksheets("Sheet1").Range("A1").Value
End Sub

Mike
 
eva

Sub Add_Sheets22()
Dim rCell As Range
For Each rCell In ActiveSheet.Range("A1")
'to add more than one sheet change range to ("A1:A10") or similar.
With Worksheets.Add(After:=Worksheets(Worksheets.Count))
.Name = rCell.Value
End With
Next rCell
End Sub


Gord Dibben MS Excel MVP
 
Back
Top