La Función With - End With permite realizar múltiples acciones en un mismo objeto. En este ejemplo, se ha utilizado la función para darle un formato determinado a una celda: letra "Arial Narrow", tamaño: 20, estilo de fuente: "italic" y subrayado. Para esto se usa "With Selection.Font" y luego las instrucciones sobre el estilo de fuente:
With Selection.Font
.Name = "Arial Narrow"
.Size = 20
.Italic = True
.Underline = True
End With
La utilidad de esta función es que el código es menos extenso, ya que no se tiene que repetir innecesariamente la función "selection" en cada instrucción, como se muestra a continuación:
Sub Promedio()
Selection.Font.Name = "Arial Narrow"
Selection.Font.Size = 20
Selection.Font.Italic = True
Selection.Font.Underline= True
End Sub
El ejemplo se puede ver en el siguiente enlace: With - End
Elaborado por: Karla Collazos