Macro to rename every worksheet in a workbook


Rename every worksheet with a user-defined prefix


Sub RenameWorksheets()
Prefix = Application.InputBox("Name", "XL n CAD")
For a = 1 To Application.Sheets.Count
Application.Sheets(a).Name = Prefix & a
Next
End Sub

How to use codes shared here?