Adding ranges to selection

[fede]

Hi all,

How can I add a range, defined as in "Range(Cells(1,1), Cells(3,3)", to current selection (i.e. without deselecting the previosly selected range) in VBA ?

Thanks

F.

 

[Tom Urtis]

Union(Selection, Range(Cells(1, 1), Cells(3, 3))).Select

 

[fede]

That works, thank for your answer.

Another question, how do I deselect all the ranges selected?

F.

 

[just_jon]

Select something else.

 

[Tom Urtis]

Another question, how do I deselect all the ranges selected?

If you mean in code, select any cell address like this
Range("A1").Select

or if you want a cell somewhere associated with the current selection, maybe this:
ActiveCell.Select

though technically that will not "deselect all the ranges selected" because a cell itself is a range and hence if being selected does not satisfy the literal meaning of your request. Depends on what you really want to do.