How to create new sheet and name through a cell range

How to create new sheet  and name through a cell range

go to developer tab and create a macro using below code

Sub CreateSheets()

Sheets("Sheet 1").Select
Words = Cells.Range ("A2:A46")
For Each Item In Words
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Item
Next Item
End Sub





Comments

Popular posts from this blog

Formatting a Range of Cells In Excel VBA

Trunc() Function

BREAK THE PASSWORD OF THE SHEET IN EXCEL