With

Estructura de control, que permite ejecutar una serie de instrucciones sin necesidad de recalificar un objeto, es decir, sobre el mismo objeto cada vez; entendiendo por objeto toda combinación de código y datos que se pueden tratar como una unidad, por ejemplo, un control, un formulario o un componente de una aplicación. Cada objeto se define por una clase.
Así, un ejemplo de utilización de la función With, sería el siguiente, donde ha sido anidada dentro de la estructura de un bucle For, y mediante la opción Select (utilizada para trabajar en entornos gráficos), se adjudicaría a cada celda de la columna identificada por el contador j, un color y un tipo de letra determinado.

       For j = 2 To x + 1
                    Hoja1.Cells(i, j).Select
                    With Selection.Interior
                                   .ColorIndex = x + 2
                                   .Pattern = xlSolid
                   End With

      Next j