Creating a new tab and tab name using data from another sheet

[sthack]

I am trying to create new tabs in a workbook using data from sheet 1 in that same workbook. I would like each tab name to be the data that is in A1:A162, where A1 is the column heading. I tried the following macro but I kept getting error # 1004.

Sub AddSheets()
For Each TabName In Sheets(1).Range("A1:A162")
Sheets.Add
ActiveSheet.Name = TabName
Next
End Sub

Can somebody please help??? I have no VBA or macro experience.

Thanks!!!!

 

[gurtej176]

I am trying to create new tabs in a workbook using data from sheet 1 in that same workbook. I would like each tab name to be the data that is in A1:A162, where A1 is the column heading. I tried the following macro but I kept getting error # 1004.

Sub AddSheets()
For Each TabName In Sheets(1).Range("A1:A162")
Sheets.Add
ActiveSheet.Name = TabName
Next
End Sub

Can somebody please help??? I have no VBA or macro experience.

Thanks!!!!

Hi Sthack,
I am not sure if I understand the issue, but from my understanding what you want is to create different work sheet tabs for the data in sheet 1.
If you want to create tab on basis of one coloumn data.....try
excel explosion:
http://www.datapigtechnologies.com/freeware.htm