Loop para percorrer intervalos descontínuos

Imagine que você deseja percorrer todas as células dos intervalos A1:A100, A150:A200 e A300:A400, ocultando as linhas que não tem valores preenchidos.
Poderíamos realizar 3 loops diferentes, colocando para cada um, o intervalo de variação das linhas dos intervalos.
Mas existe uma forma mais simples.
Para isso vamos utilizar o operador Union para reunir todos os intervalos e em seguida percorrê-los de forma única.


Sub PercorrerIntervalo()
Dim rgComposto As Range
Dim rg         As Range
Set rgComposto = Union([A1:A100],[A150:A200],[A300:A400])
   For Each rg in rgComposto
      If rg <> "" Then Rows(rg.Row).Hidden = False Else Rows(rg.Row).Hidden = True
   Next rg
End Sub






[ ]s