Macro que genere un nueva hoja

Hola Mayor Rapaz,

que genere una nueva hoja en forma secuencial que le asigne el número 500
a la primera hoja ... y 501 a la siguiente .

Prueba este codigo.

Saludos,
KL

Sub test()
Dim ws As Worksheet, Nombre As String, Nombres
ReDim Nombres(0) As Integer
For Each ws In Worksheets
If IsNumeric(ws.Name) Then
Nombres(UBound(Nombres)) = ws.Name
ReDim Preserve Nombres(UBound(Nombres) + 1)
End If
Next ws
Nombre = IIf(Application.Max(Nombres) + 1 > 500, _
Application.Max(Nombres) + 1, 500)
Worksheets.Add(, Worksheets(Worksheets.Count)).Name = Nombre
End Sub