Borrar fuentes, bordes y sombreados

Con este codigo barraremos un area seleccionada previamente por nosotros (se puede incluir en una macro) para borrar todo: fuentes, colores de fuentes, bordes y sombreados de celdas.

Selection.Font.ColorIndex = 0
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Clear

escribir en un lugar especifico

Escribir en un lugar especifico, en esta caso en la celda C2, un texto predeterminado a traves de una formula de texto, luego bajamos a la celda de abajo C3 la celda activa.

Range("C2").Select
ActiveCell.FormulaR1C1 = "escribir texto"
Range("C3").Select

Copiar una Hoja en una Hoja nueva

Crearemos una hoja nueva dandole nombre y copiaremos todo los datos de otra hoja con el nombre especifico y lo pegaremos en la hoja nueva creada.

Sheets.Add.Name = "nombre hoja nueva"
Sheets("nombre de la hoja a copiar").Select
Cells.Select
Range("C1").Activate
Selection.Copy
Sheets("nombre de la hoja nueva").Select
Cells.Select
ActiveSheet.Paste
Range("a1").Activate

Añadir Hoja nueva

Para añadir una hoja nueva en nuestro libro abierto dandole un nombre especifico que nosotros querramos es:

Sheets.Add.Name = "poner nombre"