Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
change all worksheet's name of XLSX
Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
Application.Sheets(i).Name = newName & i
Next
End Sub
Sub DeleteColumnC()
For i = 1 To Application.Sheets.Count
Application.Sheets(i).Activate
Columns("C").Delete
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment