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
|