Hi Steph

Create a unique list with AdvancedFilter and use that list in Tom's code
http://www.contextures.com/xladvfilter01.html#FilterUR

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steph" wrote in message ...
I found the code below from a Tom Ogilvy message board posting (Thanks Tom).
The code creates a folder in a specific path from a list. My question is
this - can this be modified to create folders from ONLY UNIQUE entries of
the list? My list is hundreds of rows long, and many many are duplicate.
Thanks!!

Dim rng As Range, cell As Range
Set rng = Range(Range("A1"), Range("A1").End(xlDown))
For Each cell In rng
MkDir "S:\Global_Share\Operations\Kineticom
Timesheet\Approvals\Supervisors\" & cell.Value
Next