Macro copiar determinadas hojas

hla podrían ayudarme con esta macro: necesito copiar la hoja 01 las veces q ponga en el imputbox..pero el detalle es que se renombre..solo

osea si puse = 3 que el correlativo de la primera hoja copiada sea 02 y segunda 03 y la tercera 04

---------------------------------

Sheets("01").Select
Dim x As Integer
x = InputBox("Cuantas días tiene este mes")
If x > 31 Then
MsgBox " dia incorrecto"
Else
For num_hojas = 1 To x
'Loop by using x as the index number to make x number copies.
ActiveWorkbook.ActiveSheet.Copy _
AFTER:=ActiveWorkbook.Sheets("01")
'copi0 la hoja 01
' aquí poner para cambiar la hoja
Next
End If
End Sub