Hello P45cal,

Perfect, just what i was after, cheers P45cal.

i revised the code for further selection, see below.

Sub test2()


Dim newSelection As range


'Set originalActiveCell = ActiveCell
Set newSelection = ActiveCell
For Each are In Selection.Areas
  Set newSelection = Union(newSelection, are, are.offset(1))
  Set newSelection = Union(newSelection, are, are.offset(2))
Next are
newSelection.Select
'originalActiveCell.Activate




End Sub