Renaming the sheet by specifying the index value of the active workbook

Sub Button1_Click()


ActiveWorkbook.Worksheets(1).Name = "Index 1"

ActiveWorkbook.Worksheets(2).Name = "Index 2"

ActiveWorkbook.Worksheets(3).Name = "Index 3"


End Sub