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?