Sziasztok!

Tudtok segíteni?

Mi a baj szerintetek ezzel a makróval?

 

A Name sheeten egymás alatt x név szerepel. A makrónak le kéne gyártania annyi új sheetet ahány szót talál egymás alatt és elnevezni őket.

Ebben a formában leáll, mert az első megkreált sheet után már nem az eredeti Name sheeten akar lépkedni, hanem az újon.

Ez az, amit totál nem szoktam érteni a VBA-ban, hogy miről aktiválódik valami mitől nem...totál nem látom át.

 

Köszi a segítséget!!

------------

Sub sheetcreation()

Sheets("Names").Range("A1").Select

Do While ActiveCell.Value <> Empty
    Worksheets.Add.Name = ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
Loop

End Sub

---------

Próbálkoztam ezzel is, de ez sem megy:

---------

Sub sheetcreation()

Sheets("Names").Range("A1").Select

Do While ActiveCell.Value <> Empty
    Worksheets.Add. (After:=Worksheets(Worksheets.Count)).Name = ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
Loop

End Sub