Thread
:
How to create worksheet with the name "Jan. 2007".....
View Single Post
#
3
Posted to microsoft.public.excel.programming
Peter T
external usenet poster
Posts: 5,600
How to create worksheet with the name "Jan. 2007".....
You beat me to it! here's mine anyway
Sub test()
Dim i As Long, d As Long
d = -15
For i = 0 To 11
d = d + 30
Worksheets.Add(after:=Worksheets(3 + i)).Name = Format(d, "mmm 2007")
Next
End Sub
Assumes dealing with the activeworkbook, at least 3 sheets exist per your
requirement, no same name sheets exist.
Regards,
Peter T
"Don Guillett" wrote in message
...
try
Sub makeshts()
For i = 12 To 1 Step -1
myname = Format(DateSerial(2006, i, 1), "mmm yyyy")
Sheets.Add
ActiveSheet.Name = myname
Next i
End Sub
--
Don Guillett
SalesAid Software
"Jeffery B Paarsa" wrote in message
...
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.D ec."
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
Reply With Quote
Peter T
View Public Profile
Find all posts by Peter T