Kazam Raza Blog

I have an Excel workbook with more than 30 sheets. I want these sheets to be sorted in alphanumerically order. Following is the macro that has resolved the issue.

Read more Sort Worksheets Alphanumerically by Name Using VBA

Use the keyboard shortcut, Alt + F11 to open the Visual Basic Editor (VBE).

Add Module from Insert menu.

Copy the following lines of code and paste into Module.

Read more Calculate Tax on Salary VBA Function

VBA Code

Sub addsheet()

Dim newsheet

Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "HO"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Area1"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Niaz Baig"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Chung"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Bhola Garhi"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Shahpur"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Ali Razabad"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Area2"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Maraka"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Halloki"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Shamki Bhatian"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Manga"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Raiwind"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Area3"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Begumkot"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Dhamkey"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Sharqpur"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Rachna Town"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Muridkey"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Area4"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Phool Nagar"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Jhumber"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Pattoki"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Chunian"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Habibabad"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Area5"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Nankana"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Shahkot"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Bucheki"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "Warburton"
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
    newsheet.Name = "More Khunda"
End Sub

Date of Birth 06-Jun-90

Formula =ExactAge("06/Jun/1990")

Age as on (23/Jun/2020) 30y 0m 17d

Read more Calculate Age from a Date Using VBA Function

These are used interchangeably, however,A parameter is a variable in a method definition. When a method is called, the arguments are the data you pass into the method's parameters. When a variable is passed to a subroutine or function it is called an argument. The value used in place of the parameter when we make the procedure call is called an argument.

Read more Differences Between Parameters and Arguments