Dear excel guru,
I want a macro to insert 100 sheets (all are same/smilar copy of sheet 1) o
sheet will be named 2...3..4...and so on!
Please help.
Thanks Sandeep Chhajer.
Sent on my BlackBerry® from Vodafone
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurat
Hi,
Try Below Code,
Sub Sheet1Multiplecopy()
Dim i As Integer
i = 1
For i = 1 To 100
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Sheets(i)
ActiveSheet.Name = i
Next
End Sub
Regards,
MARIES.
On Sat, Mar 31, 2012 at 10:11 AM, wrote:
> Dear excel guru,
>
> I want a macro to
: $$Excel-Macros$$ Macro for 100 sheets
Dear excel guru,
I want a macro to insert 100 sheets (all are same/smilar copy of sheet 1) o
sheet will be named 2...3..4...and so on!
Please help.
Thanks Sandeep Chhajer.
Sent on my BlackBerryR from Vodafone
--
FORUM RULES (986+ members already BANNED for
groups.com
Subject: $$Excel-Macros$$ Macro for 100 sheets
Dear excel guru,
I want a macro to insert 100 sheets (all are same/smilar copy of sheet 1) o
sheet will be named 2...3..4...and so on!
Please help.
Thanks Sandeep Chhajer.
Sent on my BlackBerryR from Vodafone
--
FORUM RULES (986+ membe
t; To: 'excel-macros@googlegroups.com'
> Subject: RE: $$Excel-Macros$$ Macro for 100 sheets
>
> Hi Sandeep,
>
> sheets.Add count:=100
>
> Check help for additional options.
> Asa
>
> -Original Message-
> From: excel-macros@googlegroups.com [mailto:excel
$$ Macro for 100 sheets
Hi,
Try Below Code,
Sub Sheet1Multiplecopy()
Dim i As Integer
i = 1
For i = 1 To 100
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Sheets(i)
ActiveSheet.Name = i
Next
End Sub
Regards,
MARIES.
On Sat, Mar 31, 2012 at 10:11 AM, wrote
u needed copies of another
> sheet. Maries has you.
>
> Asa
>
> -Original Message-
> From: Asa Rossoff [mailto:a...@lovetour.info]
> Sent: Saturday, March 31, 2012 12:40 AM
> To: 'excel-macros@googlegroups.com'
> Subject: RE: $$Excel-Macros$$ Macro f
: $$Excel-Macros$$ Macro for 100 sheets
I'd keep it short like this
Sub SheetAd()
Dim l As Long
For l = 1 To 100
Sheets("Sheet1").Copy , ActiveSheet
Next
End Sub
REgards
Sam Mathai Chacko
On Sat, Mar 31, 2012 at 1:11 PM, Asa Rossoff wrote:
> Sorry,