add new sheets with VBA

kin

Well-known Member
Joined
Jun 26, 2007
Messages
645
Hi

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

Some videos you may like

Excel Facts

VLOOKUP to Left?
Use =VLOOKUP(A2,CHOOSE({1,2},$Z$1:$Z$99,$Y$1:$Y$99),2,False) to lookup Y values to left of Z values.

pcc

Well-known Member
Joined
Jan 21, 2003
Messages
1,345
Code:
Sub testj()
For x = 1 To 30
Sheets.Add
Next x
End Sub
 
Last edited:

pcc

Well-known Member
Joined
Jan 21, 2003
Messages
1,345
Code:
Sub testj()
For x = 1 To 30
Sheets.Add
Next x
End Sub
 

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Try

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

kin

Well-known Member
Joined
Jun 26, 2007
Messages
645
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
 

Watch MrExcel Video

Forum statistics

Threads
1,127,730
Messages
5,626,552
Members
416,190
Latest member
plee3

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top