add new sheets with VBA

[kin]

Hi

how can I add new sheets sheet2, 3,4.......to 31 with a simple macro?

 

[pcc]

Sub testj()
For x = 1 To 30
Sheets.Add
Next x
End Sub

 

[pcc]

Sub testj()
For x = 1 To 30
Sheets.Add
Next x
End Sub

 

[VoG]

Try

Sub AddSh()
Sheets.Add Count:=30
End Sub

 

[kin]

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16/4/2009 by GRSpanaN
'

'
Cells.Select
Range("C1").Activate
Selection.AutoFilter

Selection.AutoFilter Field:=10, Criteria1:="last stock is greater"
Selection.Copy
Sheets("Sheet3").Select
Sheets.Add


Sheets("Sheet3").Name = "Sheet3"
Cells.Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
End Sub


I have this code and would like to paste them to sheet 3 and create 10 more new sheets

 

[kin]

it pastes the contents to the last sheet!