renaming excel sheets with vba

[jazzD]

hi,

i am trying to do some macro on an existing report in excel - its a client account statement - if the client has multiple accounts it will seperate them out into sheets and name each sheet for example John, John 1, John 2, John 3, john 4. depending on the client there could be 2 sheets or 10 sheets. i am looking to rename all sheets back to sheet 1, sheet 2, sheet 3 to keep it generic. is that possible?

thanks,

 

[Fluff]

How about

Sub jazzD()
   Dim i As Long
   
   For i = 1 To Sheets.Count
      Sheets(i).Name = "Sheet " & i
   Next i
End Sub

 

[jazzD]

How about

Sub jazzD()
   Dim i As Long
   
   For i = 1 To Sheets.Count
      Sheets(i).Name = "Sheet " & i
   Next i
End Sub

thanks! worked a treat,

 

[Fluff]

You're welcome & thanks for the feedback