Add worksheets

[Maheshp]

Hi
My Activesheet Name is Apr-09, i want to copy the same sheet 11 times & rename it as form May-09 till Mar-10, Date range is Financial year.
how can i do it with vb code, i will appreciate any help on this.

 

[VoG]

Try

Sub test()
Dim d As Date, i As Long
With ActiveSheet
    d = DateValue("01-" & .Name)
    For i = 1 To 11
        .Copy after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Format(DateAdd("m", i, d), "mmm-yy")
    Next i
End With
End Sub

 

[Rick Rothstein]

I think this will do what you asked for...

Sub AddDatedSheetNames()
  Dim X As Long, NextSheetName As String
  Worksheets("Apr-09").Activate
  For X = 1 To 11
    NextSheetName = Format(DateAdd("m", 1, CDate("28-" & ActiveSheet.Name)), "mmm-yy")
    ActiveSheet.Copy After:=ActiveSheet
    ActiveSheet.Name = NextSheetName
  Next
End Sub

 

[Maheshp]

Thanks VoG
<MARQUEE></MARQUEE>
As usual it’s amazing, thank you !
<MARQUEE> </MARQUEE>

Thanks Rick