Macro Excel

[jlrdasilva]

Bom dia.
Estou aprendendo sozinho sobre VBA Excel, tenho uma macro e gostaria de quebrar a linha que fica entre ("cad_1 e cad_19"), consegui quebrar antes do "(" mas não consigo quebrar no meio, preciso em 3 partes, se alguém poder me dar uma dica eu agradeço
 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Set Planilha = ThisWorkbook.ActiveSheet
    For Each Célula In Planilha.UsedRange.Range _
    ("cad_1,cad_2,cad_3,cad_4,cad_5, cad_6, cad_7, cad_8, cad_9, cad_10, cad_11, cad_12, cad_13, cad_14, cad_15, cad_16, cad_18, cad_19")
    Célula.Value = UCase(Célula.Text)
    Next Célula
    For Each Célula In Planilha.UsedRange.Range("cad_17")
    Célula.Value = LCase(Célula.Text)
    Next Célula
    Application.ScreenUpdating = True
End Sub

 

[Midori]

Assim?

For Each Célula In Planilha.UsedRange.Range _
	("cad_1,cad_2,cad_3,cad_4,cad_5," & _
      "cad_6, cad_7, cad_8, cad_9, cad_10," & _
      "cad_11, cad_12, cad_13, cad_14, cad_15, cad_16, cad_18, cad_19")

 

[jlrdasilva]

Obrigado olliver.soul, era isso mesmo que eu precisava, nunca eu ia pensar no "&".

 mais um detalhe aprendido.

Problema resolvido.