Looping

[dc2288]

Hi again,

I am trying to create a loop which stops once a cell is empty.
Assuming I have declared proper DIM, my code is

Row=1

Do
Row = Row + 1
SheetName = Cells(Row, "A")
Sheets.Add.Name = SheetName
Loop Until IsEmpty(SheetName.Offset(1, 0))

Thanks!!

 

[dc2288]

Colin,

That still lets me input same number in the column.

 

[Pateman]

Hi,

When I try to use the below I receive an error at ...
for each r in range("a1" range(''a1'').end(xldown))

I'm just learning the ropes of VBA, have I missed something obvious? VBA doesn't seem to like the range definition...

Thanks in advance...

if i understand that code correctly, this would work a lot better (or maybe just different, but you wouldn't have to worry about stopping when a cell is empty):

dim r as range, sheetname as string

  for each r in range("a1" range(''a1'').end(xldown))
    sheetname = r
      sheets.add.name = sheetname
  next r

trying to add a sheet for every value in column A?