Este fórum está sendo desativado

[alanisfcsm]

Boa tarde!
Como modificar o código do range para pular de duas em duas linhas até um limite?
Ex: .Range("L19,L22,L25,L28.... ATÉ L340

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 'Roda macro quando valor da célula é alterado manualmente
 If Intersect(Target, Worksheets("A").Range("L19,L22")) Is Nothing Then Exit Sub
 Application.EnableEvents = False
 MsgBox "Algo mudou!"
 Application.EnableEvents = True
End Sub

É possível?