How to Add, Delete, Rename Sheets In Active WorkBook using VBA Macro

VBA Macro To Add, Delete, Rename Sheets In a Active WorkBook
Sub AddDelRenam()

Dim x as Integer, y as Integer

x = InputBox("Enter The Sheet Name To Add :")

Sheets.ADD.Name = x

y = InputBox("Enter The Sheet Name To Delete :")

Sheets(x).Delete

A = InputBox("Enter The Sheet Name To Rename :")

B = InputBox("Enter The New Name To Sheet :" & A)

Sheets(A).Name = B

End Sub