Skip to content

Instantly share code, notes, and snippets.

@kishorevaishnav

kishorevaishnav/changeWorkSheetName.vb

Last active March 29, 2018 18:59
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kishorevaishnav/39ec4de6fda1849e57d5984b586e488c to your computer and use it in GitHub Desktop.
Save kishorevaishnav/39ec4de6fda1849e57d5984b586e488c to your computer and use it in GitHub Desktop.
Download ZIP
change all worksheet's name of XLSX
Raw
changeWorkSheetName.vb
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