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
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