add sheet in the activeworkbook

[Dalia]

how to add sheets ion the activeworkbook. the macro code is below
Sub addworkbook()
Dim ws As Worksheets
Dim i As Integer
For i = 1 To 6
ActiveWorkbook.Worksheets(i).Add
Next i
End Sub

 

[Deepak]

Some thing like as

ActiveWorkbook.Worksheets.Add().Name = i