Forum Discussion
Multiple-Worksheets creation
Dear Experts, Greetings! I have a case where , in the main sheet I have multiple unique entries in rows and want to create seperate worksheets for each of these rows( say abc, d...
I'm not even a vba guy but this may work for you. I'll bet someone will offer something sleeker.
Sub CreateSheetsFromNames()
'Create new sheets from the names added
'to column A beginning at A2 and down.
'Sheets added left-to-right.
Dim cel As Range, rng As Range
Dim lngLastRow As Long
lngLastRow = Range("A65000").End(xlUp).Row
Set rng = Range("A2:A" & lngLastRow)
For Each cel In rng
Sheets.Add After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
ActiveSheet.Name = cel
Next cel
End Sub