create a sequal

[lior03]

hello
i would like to reproduce a worksheet in a sequal manner.
namely report1,report2 and so on.
what is wrong?
[VBA]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
[/VBA]
thanks

[lucas]

Try this Moshe:
[VBA]
Sub AddNewSheets()
Dim TotalSheets
TotalSheets = Worksheets.Count - 1
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "2006 " & TotalSheets + 1
ActiveSheet.Visible = True

End Sub
[/VBA]