Macro para generar código numérico correlativo

[Invitado CSI1981]

Buenos días, tengo una planilla en la cual estoy trabajando con la siguiente MACRO

Sub Genera()
Dim numConsec As Long
Dim strConsec As String
Range("M1").Select
Selection.NumberFormat = "@"
If IsEmpty(ActiveCell) Then
Range("M1").Value = "00001"
Else
numConsec = Val(Range("M1").Value) + 1
strConsec = Right("00000" & Trim(Str(numConsec)), 5)
Range("M1").Value = strConsec
End If
End Sub

Mi consulta es como puedo hacer para que esta MACRO funcione en todas las hojas del LIBRO(5 hojas, con posibilidad de incrementar), es decir si en la hoja 1 se uso el numero 00001, en la hoja 2 si se ejecuta la MACRO se use el 00002, si vuelvo a la hoja 1 y ejecuto la MACRO se visualice el 00003.

Saludos

Y desde ya muchas gracias