Usando instruções com

A instrução With permite especificar um objeto ou tipo definido pelo usuário uma vez para uma série inteira de instruções. Com instruções, faça seus procedimentos serem executados mais rapidamente e ajudar você a evitar a digitação repetitiva.

O exemplo a seguir preenche um intervalo de células com o número 30, aplica formatação em negrito e define a cor interna das células como amarela.

Sub FormatRange() 
 With Worksheets("Sheet1").Range("A1:C10") 
 .Value = 30 
 .Font.Bold = True 
 .Interior.Color = RGB(255, 255, 0) 
 End With 
End Sub

Você pode aninhar com instruções para obter maior eficiência. O exemplo a seguir insere uma fórmula na célula A1 e formata a fonte.

Sub MyInput() 
 With Workbooks("Book1").Worksheets("Sheet1").Cells(1, 1) 
 .Formula = "=SQRT(50)" 
 With .Font 
 .Name = "Arial" 
 .Bold = True 
 .Size = 8 
 End With 
 End With 
End Sub

Confira também

• Tópicos conceituais do Visual Basic

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.