Selecting more than 1 named range

  • Thread starter Thread starter Diddy
  • Start date Start date
D

Diddy

Hi,

I'm trying to add zeroes to blank cells in ranges to make them contiguous.

I have named the ranges and used the macro recorder to select the range
which gives me

Application.Goto Reference:="MyRange1"
On Error Resume Next
Selection.SpecialCells(xlBlanks).Value = 0
On Error GoTo 0

This works fine, but how can I alter it to select a number of non-contiguous
at the same time.

Could anyone also explain the difference between Select and the
Application.Goto Reference please.

Many thanks
 
This assumes that the Names have already been assign in the worksheet:

Sub zeroThem()
Set r = Union(Range("myRange1"), Range("myRange2"))
On Error Resume Next
r.SpecialCells(xlBlanks).Value = 0
On Error GoTo 0
End Sub

You do not need to either GoTo the cells or Select the cells.
 
Back
Top