Cuestión : Agregar una hoja de trabajo con el nombre del valor de la célula

En las células A3 con A10 quiero incorporar un nombre, si hay una lengüeta con ese nombre no hace nada final de la rutina, si no crea una hoja de trabajo con ésa name. class= del

Respuesta : Agregar una hoja de trabajo con el nombre del valor de la célula

Intentar esto, él colocará con A3: A10 y crean todas las hojas que no existan ya.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

AddWorksheets secundario ()

    Amortiguar i como número entero

    Para i = 3 a 10
        Si no WorksheetExists (hojas (“Sheet1”). Células (i, 1).Value) entonces
            Sheets.Add
            ActiveSheet.Name = hojas (“Sheet1”). Células (i, 1).Value
        
        Terminar si
    Después

Submarino del extremo

Función pública WorksheetExists (ByVal WorksheetName como secuencia) como boleano

En curriculum vitae del error después
WorksheetExists = (hojas (WorksheetName). "" <> Conocido)
En el error 0 indicado

Función del final
 
Book2.xls (19 KB) (tipo de archivo detalles) 
Ejemplo
 
Otras soluciones  
 
programming4us programming4us