Itt lenne a makró:
Range(''A1'').Select
Selection.Copy
Sheets(''Munka1'').Select
Sheets(''Munka1'').Name = Range(''A1'')
Range(''A1'').Select
Application.CutCopyMode = False
Az a nagy bajom, hogy nem tudok munkalapra hivatkozni csak a nevével. Tehát, ha átnevezem, akkor nem tudom már vizsgálni az új nevet... :F Biztos van rá valami megoldás, de nem találom. Ebből adódóan amit én vázoltam fel, az csak egyszer fog működni. Ráadásul gőzöm nincs, hogyan kell ezt Command button nélkül működésre bírni. Remélem kiindulásnak jó lesz, és talán segít is valamennyire. Azért még próbálkozom, mert engem is érdekel.
Soha nem késő, hogy azzá válj, aki lehettél volna.