Use Resize to select adjacently with multiple cells selected

[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