This is my current code, how can I change the range to E9,E10 and onward to continue the code until the range cell is empty.
Dim Cellname As String
Dim rng As Range
Set rng = Sheets("CPD").Range("E8")
Cellname = rng.Text
MkDir "C:\Documents and Settings\administrator.BILLESLEY1\Desktop\CPD\" & Cellname
Any help would be greatful.