View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Nelson Nelson is offline
external usenet poster
 
Posts: 69
Default trying to create sheets and tab names from first colum of data

I have a DB result sheet, now I am trying to create worksheets for each
individual customer number in the first column of my datasheet and give the
tab of that worksheet the customer number.

I am using this but it doesnt seem to be working


Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range

Set MyRange = Sheets("RawData").Range("RawData!L:L")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange

Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
Next MyCell
End Sub

what I am looking for it to do is go through my rawdata in column A and
create a worksheet (giving the tab the name of the cusotmer number), I also
wanted this to skip existing customer numbers where a sheet already exists
and move on till its done.

Any thoughts?

Thanks in advance


--
Nelson