PDA

View Full Version : create a sequal



lior03
06-23-2006, 05:35 AM
hello
i would like to reproduce a worksheet in a sequal manner.
namely report1,report2 and so on.
what is wrong?
Sub sheetsequal()
Dim mysheet As Worksheet
Dim mybase As String
Dim mysuffix As Integer
Set mysheet = Worksheets.Add
mybase = "2006"
mysuffix = 1
On Error Resume Next
mysheet.name = mybase & mysuffix
If err.number <> 0 Then
mysuffix = mysuffix + 1
mysheet.name = mybase & mysuffix
End If
End Sub

thanks

lucas
06-23-2006, 05:52 AM
Try this Moshe:

Sub AddNewSheets()
Dim TotalSheets
TotalSheets = Worksheets.Count - 1
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "2006 " & TotalSheets + 1
ActiveSheet.Visible = True

End Sub