Use Resize to select adjacently with multiple cells selected

[atj]

Hello,

I have been trying to use a macro so that after I have already done a "find all' for a keyword, and selected all entries of it in the sheet, it will be able to expand the selection to include not only those cells, but the cells directly below it (1 cell below).... Ex: With cells A1, D1, G1 selected expand the selection to also include A2, D2, G2 (and not deselect the original ones)

I found a macro posted by Rick on another forum that comes close to this, but the problem is that it copies the text in the bottom cells into the original cells, and this is not what I want. (The data in the below cells is the more important data).
Here it is,



Sub CopyPasteBack12Columns()
Dim Ar As Range
For Each Ar In Selection.Areas
Ar.Copy Ar.Offset(0, 0).Resize(2)
Next
End Sub


I just wish I could remove that "Ar.Copy" part (and the offset part?) but that just seems to break it in the editor.. any solutions for this?

Thanks,
ATJ

[patel]

Sub selectionresize()
Dim Ar As Range, rng As Range
Set rng = Selection.Areas(1)
For Each Ar In Selection.Areas
Set rng = Union(rng, Ar.Resize(2))
Next
rng.Select
' rng.Value = "A"
end sub