Bob Phillips
12/12/2006 11:14:00 PM
Private Sub SchedSheets()
Dim mon As String
Dim monArr() As String
Dim m As Long
mon = "Jan.Feb.Mar.Apr.May.Jun.Jul.Aug.Sep.Oct.Nov.Dec"
monArr = Split(mon, ".")
Dim ws As Worksheet
Dim mm As Integer
Dim i As Integer
i = 3
Dim sheetName As String
For m = 0 To 11
sheetName = monArr(m) & " " & Year(Date)
Worksheets.Add after:=Sheets(i)
ActiveSheet.Name = sheetName
i = i + 1
Next m
End Sub
--
---
HTH
Bob
(change the xxxx to gmail if mailing direct)
"Jeffery B Paarsa" <JeffBPaarsa@Yahoo.com> wrote in message
news:746D9C4A-24E3-4336-81BC-55976DA4E02B@microsoft.com...
> Hello all,
>
> In a VBA macro I running the following code hoping to create a maximum
> number of 12 worksheets after worksheet number 3 with the worksheet name
> of
> "Jan. 2007", "Feb. 2007"....etc... What am I doing wrong... Beleive me I
> spent at least 2 hours in search to find an example code with no
> success....
>
> Private Sub SchedSheets()
> Dim mon As String
> Dim monArr() As String
> mon = "Jan.Feb.Mar.Apr.May.Jun.Jul.Aug.Sep.Oct.Nov.Dec."
> monArr = Split(mon, ".")
> Dim ws As Worksheet
> Dim mm As Integer
> Dim i As Integer
> i = 3
> m = Month(Date)
> Dim sheetName As String
> While mm < 13
> sheetName = monArr(m) & " " & Year(Date)
> Worksheets.Add after:=Sheets(i)
> ActiveWorksheet.Name = sheetName
> i = i + 1
> m = m + 1
> Wend
> End Sub
> --
> Jeff B Paarsa