nominare i fogli in automatico

nominare i fogli in automatico
di fra (utente non iscritto) data: 09/04/2016 12:19:57
ciao,
mi servirebbe nominare i fogli in automatico a partire dal 5 foglio.
ad esempio vorrei che dal quinto foglio in poi venga rinominato il foglio con il nome francesco 1, il sesto si chiamerà francesco 2 e così via.
so rinominarlo con una macro a partire dal primo foglio ma non so partire a nominarle con numeri incrementali che inizino dall'1 a partire dal quinto foglio.

di patel data: 09/04/2016 12:38:36
ecco

Sub a()
n = 1
For f = 5 To Sheets.Count
  Sheets(f).Name = "francesco " & n
  n = n + 1
Next
End Sub