Tentei Range("Name1, Name2, Name3").Cells(deslocLin, deslocCol) = Valor e só Name1 recebeu o valor.
Como vc quer Deslocamento, use Offset ao invés de Cells na expressão acima, que ele atribuirá valor a todos os ranges.
Além disso, se precisar iterar com cada intervalo nomeado desse range total, pode fazer loop usando a propriedade Areas:
Dim a As Range
For Each a In Range("Name1,Name2,Name3").Areas
a.Offset(deslocLin, deslocCol).Value = Valor
Next a
Obs.: evite usar o espaço em branco entre as vírgulas e os nomes dos Ranges.
Postado : 18/09/2018 9:11 am