Friday, 31 August 2012

Macro To Add,Delete,Rename Sheets In Active Work Book


Macro To Add,Delete,Rename Sheets In  Active Work Book


Sub AddDelRenam()

Dim x, Y
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

No comments:

Post a Comment

Follow Me by Email

ExcelKingdom-Popular Posts

ExcelKingdom-Random Posts