lizethor

Un gran Saludo Estoy muy agradecida por tu informacion, he navegado durante mucho, tratando de encontrar esta respuesta; leyendo todas las intervenciones a mi parecer son acertadas, la opcion que plantea mjrofra es valida para mi, el unico inconveniente en mi caso es que copia todo lo de la hoja, hasta los botones; pero lo interesante es que no aparece error en los nombres repetidos y genera automaticamente una hoja con el mismo nombre y en "consecutivo"; por esta razon quise que mi formato tambien generara un consecutivo con el nombre que yo quisiera asignarle; y por suerte encontre otro codigo que complemento un poquito el tuyo y lo quise compartir a quien pueda interesarle; tambien mi intervencion es un mero agradecimiento por compartir conocimientos con el mundo en este medio, Gracias. Private Sub Guardar_Click() Sheets.Add after:=Sheets(Sheets.Count): Sheets("Original").Cells.Copy: ActiveSheet.Paste ActiveSheet.Name = Sheets(1).Range("C5").Value Application.CutCopyMode = False End Sub [/CODE] En el codigo "...Range("C5").Value ", es la celda donde coloco el nombre o consecutivo que quiero que lleve el nombre de la hoja.