Innehållsförteckning
Följande makro går igenom varje ark i en arbetsbok och skriver fliknamnet på varje ark sekventiellt till ett ark du väljer. Detta kan vara praktiskt för en snabb lista över varje ark i en arbetsbok med många blad.
Lista alla kalkylblad i en arbetsbok
För att använda makrot, ersätt bara ordet Sheet1 (det visas två gånger) i koden med fliknamnet där du vill ha resultaten. Se till att det inte finns någon viktig information på utdatafliken eftersom den rensar data innan du skriver till den.
123456789101112131415 | Sub ListSheets ()Dim ws Som arbetsbladDim x Som heltalx = 1Sheets ("Sheet1"). Range ("A: A"). ClearFör varje ws i kalkylbladSheets ("Sheet1"). Celler (x, 1) = ws.Namex = x + 1Nästa wsAvsluta Sub |